Select Code to Download

while(<>){
  my @list = shift =~ /([a-xA-Z'\-]+)/g;

while(<>){
  my @list = $_ =~ /([a-xA-Z'\-]+)/g;