Hi Sam, I updated the code (see below). I think what is happening is that it is not opening the file but is only processing the name of the file. How do I make it open the content of the file to do the substitution?

use File::Find;
use strict;

my $bak_ext  = '.bak';
my $root_dir = 'C:/Temp/Chris/Bills/';

find(\&wanted, $root_dir);

sub wanted
{

    # if the extension fits...
    if ( /\.xml?/i ) 
{
        print "Processing $_\n";
        my $new = $_;
        my $bak = $_ . $bak_ext;
        rename $_, $bak or die "Cannot rename $_ to $bak: $!";

        open OUTPUT, "> $new" or die "Cannot open $new for writing: $!
+";

while ( <OUTPUT> ) {

my $TheLine = $_;

s/Draft/Scrap/i;
s/<label>([^<]*<\/label>)/<label denominator=no auto.number=no>$1/i;

   print OUTPUT;

}
close OUTPUT;
}
else {
        print "Skipping $_\n";
    }
}
[download]