while (<>) {
  chomp;
  my ($name) = /(\w+\s+\w+)/;
  $name =~ tr/\n\r\t\f / /s;   # squish spaces
  push @names, $name;
}