while ($_ =~ /(href)[ ="']+(.*?)["'>|\?]/gi) {
# finding linked files
  if (($2 =~ /css/i)|($2 eq $cfm)) {  # skipping css files and links to self
  } else {
    $uniques{"$2"}++;
    $uniques{$2} = "<norm>";
  }
}