Select Code to Download

   my $re = quotemeta($VarString);
   next unless $Array[$Counter] =~ m/$re/;

   next unless $Array[$Counter] =~ m/\Q$VarString\E/;