http://www.perlmonks.org?node_id=1065677


in reply to Homework Golf

35 (OR 46 depending upon which of the scoring method used in this thread you favour):

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

On *nix, it can be 1 shorter (correct nested 's; thanks choroba):

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

And one shorter still:

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

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.