Select Code to Download

open(FILE, "file.txt") or die "Oops:$!";
my $contents = <FILE>;
...
{
   do every possible s/// with the two arrays here
}