Select Code to Download

perl -lne'$x=$_;print "$. $_" if grep /^$x$/i, qw/just another hacker/
+' /usr/share/dict/words'

perl -lne'$x=$_;print "$. $_" if grep /^$x$/i, qw/just another hacker/
+'< /usr/share/dict/words

2040 another
19245 hacker
23151 just

perl -le'@a=qw/23151 19245 2040/;while(<>){chomp;push @b,$_ if grep {$
+.==$_} @a}push @b,$^X;print ucfirst join(" ",@b[2,0,3,1]).","'</usr/s
+hare/dict/words
Just another perl hacker,

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print