#!/usr/bin/perl open FILES, "find . -name '*- Track*.mp3' |" || die; foreach () { 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"; }