$string1 =~ s/(<VT>)(.+)/$1${string2}$2/i;