Select Code to Download

use constant MATCHES => join '|' => qw/ a list of words /;

...
method result   - something complex here
a regexp object - (?x-ism:\b (?: a|list|of|words ) \b)

print "it's a hash     - @{[ %hash ]}\n";

print "method result   - ${ \$obj->method }\n";

print "a regexp object - ", qr[\b (?: ${\MATCHES} ) \b]x, $/;