Select Code to Download

$ perl -E 'my $x = "...-L^\^\+~p...M-^@iM-^OM...M-\E+^W...M-\HJ..."; s
+ay $x'
...-L^^+~p...M-^-^OM...M-+^W...M-HJ...

$ perl -Mstrict -Mwarnings -E 'my $x = "...-L^\^\+~p...M-^@iM-^OM...M-
+\E+^W...M-\HJ..."; say $x'
Possible unintended interpolation of @iM in string at -e line 1.
...
Unrecognized escape \H passed through at -e line 1.
Global symbol "@iM" requires explicit package name (did you forget to 
+declare "my @iM"?) at -e line 1.
Execution of -e aborted due to compilation errors.