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