# Copyright 2001 Christopher J. Carlson # All Rights Reserved $a= "cpuu \bmft p \bg cff \bs";$b ="po ui \bf xbm \bm";$c=" Ypv ublf p \bof epxo qb \btt ju bspvoe"; $a =~ s/\n//;$a =~ s/\s+/ /g; $b =~ s/\n// ; $b =~ s/\s+/ /g;$c =~ s/\n// ; $c =~ s/\s+/ /g;$a =~ y/b-z/a-z/;$b =~ tr/b-z/a-z/;$c =~ tr/b-z/a-z/ ; for( $d=100;$d>0;$d--){ print"$d $a $b $d" ;print" $a,\n$c, " ;print($d-1);print " $a $b.\n";} $x = "cjc"; $y="dobbz"; $z="com";print"\n" ;print "- $x\@$y." ;print"$z \n\n";