my @records = split(/^(?=I)/m, $file);