#23456789_123456789_123456789_123456789_123456789_123456789_123456789_123456789_123456789_123 perl -nle '$t=0;for $n (0..(length()-1)){$t+=(ord(lc substr($_,$n,1))-96)}print if $t == 65;' /usr/share/dict/words