Rewrite of Larry Wall and Robin Barker's perl rename script