mp3-retag-from-filename.pl

#!/usr/bin/perl
# $f is UTF-8 (on Mac OS X)
for my $f (<*.mp3>) {
    (my $title = $f) =~ s/\.mp3//;
    $title =~ s/^\d+\. *//;
    # -e 2 tells mp3info2 to decode @ARGV using LANG
    system 'mp3info2', '-e', '2', '-t', $title, $f;
}