Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    my @LABEL = grep /$grepper/, @array;
    
    print Dumper $grepper, \@array, \@LABEL;
    
  2. or download this
    $VAR1 = 'label[("]';
    $VAR2 = [
    ...
              'label(',
              'label"'
            ];