Select Code to Download

while(<ASX>) {
    next unless m{<REF HREF=(.*)/>};
    $address = $1;
    $address =~ s/\"//g;
    print PLAYLIST $address, "\n\n";
}

next unless m{<REF HREF=\"?(.*)\"?/>};

next unless m{<REF HREF=\"?(.*?)\"?/>};

<REF HREF="mms://<some_address>.(wma|wmv|maybeSomethingElse)" />