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

$^I = "";   # make sure it prints back out

my @files =  <X:\path\to\files\*.pdf>;
@ARGV = @files;

while(<>){
 s/\/Im0\ Do//g; 
  print;      # yikes, without the print you will wipe out the file
}
[download]