#!/usr/bin/perl

print "Content-type:text/html\n\n";

@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";