> perl -lwe '() = ($_ = "abc") =~ /(c)/; $_ = "def"; print eval <>'
$&
f
>