$temp0="ZO";
$temp1='$1';
$x="ABCZO";
$x =~ s/([A-Za-z]+)$temp0/$temp1/ee;  
print $x; # should print ABC