Select Code to Download

my $re1 = qr/a/;
my $re2 = do { use if $ENV{FOO_DEBUG_REGEX},
...
$str =~ $re1;
$str =~ $re2;
$str =~ $re3;