Select Code to Download

  my $str1 = 'stringone';
  my $str2 = 'stringtwo';
...
      }
    }
  }

open (IN, 'text.txt');
while (<IN>){
...
    push(@array, $_);
    }
}