Select Code to Download

my $regex = mkre($s);
while( $string =~ m/$regex/g )
...
  warn "$s: $re\n" if $DEBUG;
  qr/$re/x;
}