my $MP3dir = $ARGV[0];
my $searchfor = $ARGV[1];
#$MP3dir = "\"" . $MP3dir . "\"";
my $regexp = "\/\\.$searchfor\/";
find(\&wanted, $MP3dir);

sub wanted
{
   $regexp or return;