sub word { '( \w+ )' }

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

__output__

Hello