local $_;

do {
    my $rec = '';
    do {
        $rec .= $_ = <>;
    } until /^Field 3/ or !defined;

    # ...

} while defined;