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