#!/usr/bin/perl

open FILES, "find . -name '*- Track*.mp3' |" || die;

foreach (<FILES>) {
    chomp;
    $title=`mp3info -p "%t" "$_"`;
    if ($title =~ /track/i) {
        print "File $_ really does have title $title, not renaming\n";
    } else {
        $cleantitle = $title;
        $cleantitle =~ tr,"\\/,____,;
        $newname = $_;
        $newname =~ s/- track.*/- $cleantitle.mp3/i;
        if (-f $newname) {
                print "Won't rename $_ to $newname, already exists\n";
        } else {
                print "Old: $_\nNew: $newname\n";
                rename($_, $newname) ||
                     die "couldn't rename $_ to $newname\n";
        }
    }
    print "\n";
}
