sub qre(&;@) { my $block = shift; my $str = $block->(@_); return qr/$str/; }