$temp0="ZO";
$temp1='foo$1bar';
$x="ABCZO";
$x =~ s/([A-Za-z]+)$temp0/qq[qq[$temp1]]/ee;  
print $x; # prints fooABCbar