my %record;

while (<IN>) {
  if (/^(\d+).../) { # found beginning of new record
    process (\%record) if $record{id};
    %record = ();     # Flush old record
    $record{id} = $1; # populate parsed info from this line
...