use strict;
use warnings;
use Data::Dumper;

my $grepper = 'label[("]';
my @array = qw ! label( label" label% label!;
my @LABEL = grep /$grepper/, @array;

print Dumper $grepper, \@array, \@LABEL;