1 2 3 4
#fgpkerw4kcmnq2mns1ax7ilnd open (Q, $0); while ($l = <Q>){if ($l =~ m/^#.*/) {$l =~ tr/a-z1-9#/Huh, Junketeer's Alternate Pro Ace /; print $l;}}close (Q);
1
Just Another Perl Hacker,