Select Code to Download

use strict; use warnings;

...

@res = grep {$pat} @arr;
print "Variable:\t@res\n";