while ( <DATA> ) {
  while ( /(\w+)/g ) {
    print $1, "\n";
  }
}