Select Code to Download

open CATEGORY, "categories.txt";  # ...or whatever...

...

  print OUTFILE "$reference,$LIST{$reference}";
}

  if ( $reference !~ /^\'\w+\d+\'$/ ) {
    # ...
  }