Select Code to Download

while(<>){
chomp($_);
...
  print OUTPUT "$_\n";
  close(OUTPUT);
}

while(<>){
  chomp($_);
...
  print WORDS "@${x}";
  close(WORDS);
}

($_='jjjuuusssttt annootthhrer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;