Sounds like a great use of the flip-flop operator

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

See. perlop for more info.
HTH

_________
broquaint