open(PLAYLIST, "<playlist.m3u");
opendir(FILES, 'd:\my files');
my @playlist = ();

open TEMP ">playlist.txt";

while(<PLAYLIST>) {
    if(not(/#/)) {print TEMP "$_\n"}
    }