foreach $record ($formatted_data =~ m/(^ {3}\w.*)/mg) {
   &process_record($record);
 }