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

##</code><code>##

#23456789_123456789_123456789_123456789_123456789_1234
perl -nlE"$n=0;map$n+=$_-96,unpack'C*',$_;$n==65&&say" words.txt