Some perl subroutines for batch rename files name.