You might want to look at my module File::Wildcard, which can use regexp captures to derive the new filename. If you want to give this a go, please give me feedback on usability, documentation, etc. and I'm willing to help if you get stuck.