[~] $ perl -le'$_="foo";s/foo/my $x="bar"/e;print;print ">>>$x<<<"'
bar
>>><<<