if (my $val = some_func()) {
    # ...
}

##</code><code>##

{
    my $val = some_func();
    if ($val) {
        # ... 
    }
}