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