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