Select Code to Download

my $itemPart = "Group1]Item2";
my @items = (
...
else {
    print "Not Found!\n";
}

my @matching = grep /\Q$itemPart\E/o, @items;