while(<ASX>) {
  tr/"//d if /HREF/;
  print PLAYLIST $1 if /<REF HREF=(.*)\/>/;
}