@records = split /(^ {3}\w.*\n)/m, $input;

##</code><code>##

"",
"   record1blah\n", "     dataforrecord1\n    moredataforrecord1\n",
"   record2blah\n", "     dataforrecord2\n    moredataforrecord2\n",
...