## not the exact code, but a close facsimile from memory:
sub make_matcher { eval qq{sub { \$_[0] =~ /$_[0]/o } } }
my $matcher = make_matcher( "dynamic" );
if( $matcher->( "dynamicorama" ) ) { # ... }