You could use B::Deparse to translate that into a Perl program:

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

Which could also be written as:

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

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