if($src =~ /<record[^>]*>/igm){
  $src =~ s/$&/$&$new_tag/i;
}