jueves, 8 de octubre de 2009

#!/usr/bin/girl

@a=(Emfhbodf,Susfohoi,Suzmf);
$b="Edmjqtf";
$b =~ y/b-z/a-z/;

$c = " Tif " . @a . " hsfbu wj" . "suvft pg b hjsm" . ":\n";

$c =~ y/b-y/a-z/;

print"\n\n$c ";

for($i=0;$i<@a;$i++) {
$a[$i] =~y/b-z/a-z/;
if($a[$i]eq$a[-1]) {
print "and $a[$i].";
}
else {
print "$a[$i] ";
}
}
print "\n\t\t--$b\n\n";