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

##</code><code>##

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