{
    local $/ = "<RECORD>";
    open INFILE, "<in.dat" or die "Bleah!\n$!";
    while ( my $record = <INFILE> ) {
        chomp $record; # strip off the record separator.
        my @rec_lines = split /\n/, $record;
        # process each record line here.
    }
    close INFILE;
}