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

my @files =  <H:\*.pdf>;
@ARGV = @files;

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

##</code><code>##

#!/usr/bin/perl
BEGIN {(*STDERR = *STDOUT) || die;}
use diagnostics;
use warnings;
use strict;
$| = 1;
my @files =  <H:\*.pdf>;
@ARGV = @files;
$^I = '~';
while (<>)
{
binmode ARGVOUT if $. == 1;    s/\/Im0 Do//g;    
print;
}