perl -lne 'if (/^[a-p,r-y]{4}$/i) {($a = lc $_) =~ tr/[a-p,r-y]/222333444555666777888999/; print "$_: $a"}' < /usr/share/dict/words