in reply to perl code to replace

There is also the 'mmv' command, if you are on linux

In Section Seekers of Perl Wisdom