And here are the
Australian and
Singaporean translations :D
<tongue-in-cheek>
#!/usr/bin/perl -w
use strict;
my @perl_monks = qw(
Initiate Novice Acolyte Sexton
Beadle Scribe Monk Pilgrim
Friar Hermit Chaplain Deacon
Curate Priest Vicar Parson
Prior Monsignor Abbot Canon
Chancellor Bishop Archbishop
Cardinal Sage Saint Apostle Pope
);
my @strine_monks = qw(
Drongo Nong Mug Bludger
Dill Illywhacker Larrikin Mate
Cobber Bloke Poddy-Dodger Ratbag
Sheila Tart Walloper Yobbo
Dag Skite Wanker Yahoo
Galah Digger Pollie Wowser
Ponce Ant's-Pants Ocker Boss-Cocky);
my $num_levels = @perl_monks;
printf "%-6s%-15s%-15s%-15s",
"Level","Perl Monk",
"Strine Monk",
"Singlish Monk";
print "\n\n";
my $c;
for ($c=0; $c<$num_levels; $c++) {
printf "%-6s%-15s%-15s%-15s",
$c+1,
$perl_monks[$c],
$strine_monks[$c],
"$perl_monks[$c]-lah";
print "\n";
}
</tongue-in-cheek>