my $re1 = qr/foo|bar/;
{
    use if $ENV{DEBUG_REGEX}, qw/re Debug EXECUTE/;
    my $re2 = qr/quz|baz/;
    print "xfoox"=~$re1, "ybazy"=~$re2;
}