my @record;

while( <FH> ) {
    chomp;
    if( /start-delim/ ) {
        @record and process( @record );
        @record = ();
    }
    push @record, $_;
}
@record and process( @record );