Select Code to Download

while ($_ =~ /(<cf_)(.*?)[>\s]/gi) {
  # finding custom tags
  $uniques{"$2.cfm"}++;
  $uniques{$2} = "<cust>";
}

while ($_ =~ /(<cf_)(.*?)[>\s]/gi) {
  # finding custom tags
  $uniques{"$2"}++;
  $uniques{$2} = "<cust>";
}