a perl script for renaming files and directories by regular expressions