Help for this page

Select Code to Download

Select or download this

use File::Find;

...
        print "Found $filename, changing\n";
    }
}