$var1="123x456x789xabc"; $var2=""; ($var2 = $var1) =~ s/(.*x){2}[^x]*?(x.*)/$1PROBE$2/;