Select Code to Download

use strict;
&renameFiles( &getArgs() );
...
      rename( $before, $after );
   }
}

perl renrx "s|(.*?)(\d\d) ([^_]+) _ (.*?)(\.mp3)|$1$2 $4 _ $3$5|"

Maybe-01 Winter Wonderland _ Phantom Planet.mp3 => Maybe-01 Phantom Pl
+anet _ Winter Wonderland.mp3
Rename? [Yes|No|Always|Cancel] y
Maybe-02 Maybe this Christmas _ Ron Sexsmith.mp3 => Maybe-02 Ron Sexsm
+ith _ Maybe this Christmas.mp3
Rename? [Yes|No|Always|Cancel] a