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

##</code><code>##

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