my($i, @data) = 0;
until(eof FILE) {
  $data[$i] .= $_
    while ($_ = <FILE>) and /^Field 1/ .. /^Field 3/;
  $i++;
}