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

##</code><code>##

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

##</code><code>##

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