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