($second = $first) =~ s/foo/bar/;