while ( <ASX> ) {
    next unless m(<REF\s+HREF\s*=\s*(['"])(.+?)\1)si;
    print PLAYLIST $2, "\n\n";
}