There's always the ol' 'scalar ref/deref in a string' trick e.g

sub word { '( \w+ )' }

print "Hello World" =~ /${\ main->word }/x;

__output__

Hello
[download]

HTH

_________
broquaint