Select Code to Download

use strict;
use warnings;
...
my @LABEL = grep /$grepper/, @array;

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

$VAR1 = 'label[("]';
$VAR2 = [
...
          'label(',
          'label"'
        ];