my $interesting_bit;
{
    # maybe open here . . .
    local $/ = '--start foo--' . "\n";
    $interesting_bit = <FILE>;
    local $/ = '--end foo--' . "\n";
    $interesting_bit = <FILE>;
    # . . . and close here
}