Rename filenames in perl using regex

ArifS has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Rename filenames in perl using regex by LanX (Saint) on Aug 29, 2014 at 14:54 UTC
> Any suggestion will be greatly appreciated..... see `opendir`. `readdir` , ... š `rename` `For a platform independent "move" function look at the File::Copy module.` edit and ... `uc` `s///` ˛ Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :)} š) or `glob` ˛) or `split`	[reply]
Re^2: Rename filenames in perl using regex by ArifS (Beadle) on Aug 29, 2014 at 16:33 UTC
I have something like the following so far to go thru the cleanup as I don't want any _or-. print "$file\n"; $file =~ tr/_\t\r\n;:/ /; $file =~ tr/-\t\r\n;:/ /; $file =~ s/\s+/ /g; $file =~ s/MY./my/; $file =~ s/my./my/; print "$file\n"; Now I am trying to figure out how to match a pattern like if it has '.my' or '.MYc' take '.MY' and place it in 3rd octet, and if it has any # like 1st, .2nd, or .4th then move that infront of the line etc.	[reply]
Re: Rename filenames in perl using regex by hippo (Archbishop) on Aug 29, 2014 at 16:24 UTC
Not difficult once you turn it into an algorithm. I suggest you try that first and read the hint if you get stuck. <Reveal this spoiler or all in this thread>	[reply] [d/l]
Re^2: Rename filenames in perl using regex by Anonymous Monk on Sep 02, 2014 at 18:47 UTC
you are the best.... Thank you very much.	[reply]
Re: Rename filenames in perl using regex by GotToBTru (Prior) on Aug 29, 2014 at 14:44 UTC
What have you tried so far? 1 Peter 4:10	[reply]

edit