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

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

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