$_ = 'foo';

$lhs = '(.)oo';
$rhs = '$1."ar"';
s/$lhs/$rhs/ee;