perl -e 'print grep {/^a/io} <>' /usr/dict/words