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

##</code><code>##

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

##</code><code>##

2040 another
19245 hacker
23151 just

##</code><code>##

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,

##</code><code>##

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