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