$_ = 'foo';

$lhs = '(.)oo';
$rhs = '${1}ar';     
s/$lhs/qq{qq{$rhs}}/ee;