Select Code to Download

$uniques{"$2.cfm"}++;

$uniques{"$2"}++;

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

while (my ($code, $count) = each %uniques) {
  print "$code => $count\n";
}