Select Code to Download

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

use Data::Dump;

...

dd qre \&oredraw, @strings;