use constant REGEXP => qr(string);
@list = ('astring', 'notstriing');
$s = 'bstring';

print $s =~ REGEXP;     # true

print grep {REGEXP} @list;  # prints whole list.
print grep {/string/} @list; # prints correct match.