while(<DATA>)
{
   my @a=/(\w+)/g;
   print "@a\n";
}
__DATA__
word1 word2 word3
..     ..    ..