Select Code to Download

#! perl
use strict;
...

@res = grep { $pat->($_) } @arr;
print "Variable:\t@res\n";

 0:52 >perl 939_SoPW.pl
Literal:        1 2
Variable:       1 2

 0:52 >