PM is a place for learning; not a place to come for free scripts. We'ld love to help you learn, if you wish to do so and put some effort into it.

To that end, you might want to start by reading The Perl Monks Guide to the Monastery and at least some of the offerings in PerlMonks FAQ.

Then what would you have learned? Ok, see Re^2: perl -pi -e s'/^\s+//'g $file, see perlintro, see FMTYEWTK About Mass Edits In Perl, see perlintro

See PerlMonks FAQ, Understanding and Using PerlMonks, How do I post a question effectively?

Read perlintro then you can write program, like

#!/usr/bin/perl --
use strict;
use warnings;
Main('directory');

sub Main {

• open directory, read a list of files ( or File::Find::Rule )
• loop over list, and opened a lexical filehandle
• read lines until you
• find the new name, then
• copy the file to the new name
• close your lexical filehandle

}