$line =~ s/regexp\<name\>$1\<\/name\>/;