#!/usr/bin/perl -w
use strict;
my($infile,@records);

while(<DATA>) {$infile.=$;}

@records = (split(/(?=^ {3}\w)/,$infile); #returns whole list
#@records = ($infile =~ m/(^ {3}\w.*?)/sg); #returns only up to \w

print join("\n========\n",@records);

__DATA__
   record1
    field2 2345
   record2
   record3
    field1 GAGGA
    field2 7848
    field2a 5m