if (my ($title, $row) = /TEST\s+\w+\W+(\w+)\D+(\d+)/) {
    push @records, [$title, $row];
  }
  else {
    warn "no match at $." ;
  } ;