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,