perl -wMstrict -E 'print for grep /adam/, <>' /usr/share/dict/words