As an excuse to use the new beta CPAN search, I keyed on 'mp3' and found 143 entries. None however were what I was looking for. Some were close, but most were overly complicated. All I was looking for was the 'm3u' version of 'ls' or 'dir' and I didn't see a close match. So out with the code scissors and shortly thereafter:

#!/perl/bin/perl
#
# playlist.pl -- Q&D mp3 playlist generator
use strict;
use warnings;
use Cwd;

my %list;

unshift @ARGV, '*/*?' if (scalar @ARGV == 1);
while(<$ARGV[0]>) {
    if (/$ARGV[1]/) {
        my $path = cwd() . "/" . $_;
        $path =~ /\/\d\d-(.+)/;
        my $title = lc $1;
        $title =~ s/^The\s+//;
        $list{$title} = $path;
    }
}
print $list{$_},"\n" for (sort keys %list);
[download]

--hsm