Help for this page

Select Code to Download

Select or download this

$grepper=join('','label','(','"');
print "$grepper\n";
...
@LABEL = grep(/$grepper/, @array);
print "@LABEL \n";

Select or download this

@LABEL = grep(/label\(\"/, @array);
print "@LABEL \n";