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