Use your good friend tr// and save the regex headaches:

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

(untested)