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

##</code><code>##

$ 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.
Useless use of \E 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.