Select Code to Download

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

sub qre (&;$) {
    my $re = shift->();
...
__END__

(?^i:foo|bar)