I (breifly) looked for a replacement for "\c_", but I was trying to xor two bareword chars together to produce chr(31). I found several pairs that worked, but then as ^ has lower precedence than x, I couldn't extend the string cos if you bracket the expression, x produces a list not a string :(. Didn't think of &~'`'. Or vstrings:( )

Also couldn't see how to ditch the unpack parens.

As neither of the strings needs escape processing (unlike "\c_"), you can switch the "s <-> 's and that works on windows also:

C:\test>perl -nlE"65^unpack'%c*',$_&~'`'x30or say" words.txt | wc -l
   1279
[download]