#23456789_123456789_123456789_123456789_123456789_123456789
perl -nlE"$w=$_;$n=0;$n+=ord(chop)-96while$_;$n==65&&say$w" words.txt