if( my $foo = bar(@quux) ) {
        $foo exists here
    }
    # no foo here

##</code><code>##

    (my $copy = $original) =~ s/foo/bar/;