{
    my $foo;
    ...              # n1 lines
    $foo = bar();
    ...              # n2 lines
    print $foo;
}

##</code><code>##

{
    ...              # n1 lines
    my $foo = bar();
    ...              # n2 lines
    print $foo;
}