Select Code to Download

my $re1 = qr/foo|bar/;
{
...
    my $re2 = qr/quz|baz/;
    print "xfoox"=~$re1, "ybazy"=~$re2;
}