@records = split /(?=\nrecord)/, ("\n" . $data);