See prename from Debian perl git files. It is named rename in Debian by default

It is based in a Larry Wall script !

:-)