$ perl -MO=Deparse   -pi -e 's/\/Im0\ Do//g'
BEGIN { $^I = ""; }
LINE: while (defined($_ = <ARGV>)) {
    s[/Im0\ Do][]g;
}
continue {
    print $_;
}
-e syntax OK


##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

$^I = '';
while ( <> ) {
    s/\/Im0 Do//g;
    print;
}