Select Code to Download

use constant REGEXP => qr(a);
print grep { REGEXP } qw(a b c);

my @tmp;
foreach (qw(a b c)) {
   push @tmp, $_ if qr(a);
}
print @tmp;

print grep { $_ =~ REGEXP } @list;