Perl

See story at http://freephile.com/cms/content/three-virtues-good-programmer

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

#!/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";

The 3 great virtues of a programmer:
Laziness, Impatience, and Hubris.
--Larry Wall