Select Code to Download

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

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