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