Select Code to Download

while(<DATA>)
{ 
...
      print $1,"\n";
    }
}

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