Weird code

Run it and see for yourself:

#!/usr/bin/perl
@a = (Lbzjoftt,Inqbujfodf,Hvcsjt);
$b = "Lbssz Wbmm";
$b =~ y/b-z/a-z/ ; 
$c = " Tif " . @a . " hsfbu wj" . "suvft pg b qsphsbnnfs" . ":\n";
$c =~ y/b-y/a-z/;
print "\n\n$c ";
for($i=0;$i<@a; $i++) {
    $a[$i] =~ y/b-y/a-z/;
    if($a[$i]eq$a[-1]) {
        print"and $a[$i].";
    } else {
        print"$a[$i], ";
    }
}
print "\n\t\t--$b\n\n";

Thanks Pat, you're totally whacked upside the head!