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

##</code><code>##

while(<DATA>)
{ 
   my @ar= /(\w+)/g;
   print @ar,"\n";
}