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

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

##</code><code>##

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

##</code><code>##

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