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

##</code><code>##

$uniques{"$2"}++;

##</code><code>##

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

##</code><code>##

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