Select Code to Download

my @matches = grep { ",$Array[$_]," =~ /,\Q$VarString\E,/i } 0..$#Arra
+y;

my ($match) = grep { ",$Array[$_]," =~ /,\Q$VarString\E,/i } 0..$#Arra
+y;