#23456789_123456789_123456789_123456789_123456
#         123456789_123456789_123456789_12345
perl -nlE"unpack('%c*',$_&chr(31)x30)-65||say" words.txt

##</code><code>##

#23456789_123456789_123456789_123456789_12345
#         123456789_123456789_123456789_1234
perl -nlE'unpack("%c*",$_&"\x1f"x30)-65||say' words.txt

##</code><code>##

#23456789_123456789_123456789_123456789_12345
#         123456789_123456789_123456789_1234
perl -nlE'unpack("%c*",$_&"\c_"x30)-65||say' words.txt