Re^2: Encoding horridness revisited: What's going on here?

Or just add

use utf8;
use open IO => ':encoding(UTF-8)', ':std';
[download]

and remove all binmode or :encoding in open calls.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re^2: Encoding horridness revisited: What's going on here? Select or Download Code

Replies are listed 'Best First'.
Re^3: Encoding horridness revisited: What's going on here? by karlgoethebier (Abbot) on Jul 13, 2017 at 16:00 UTC
This works! I'll try the solution from 1nickt and update the OP. Very nice! Thank you very much, Karl ŤThe Crux of the Biscuit is the Apostropheť `perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'`Help	[reply] [d/l]