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