my @stuff; sub wanted { push @stuff, $File::Find::name if -f && ! -d && m/\.mp3$/i; } find(\&wanted, $mp3_dir);