Select Code to Download

$_ = 'foo';

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

$_ = 'foo';

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