You have been banging on essentially the same issue for at least two months now (see Rename filenames in perl using regex). Maybe it's time for you to step back and gain some fundamental skills? The most important immediate skill you could hone is using resources such as perldoc to figure out how Perl works. Of immediate interest are perlretut, perlre and perlreref.

Spending a little time and effort now to learn about the tools Perl offers and to learn how to efficiently find the information you need solve problems will save you much more time and effort in the long run than using PerlMonks as a crutch every time you hit a minor issue.