1use re 'debug';
2
3$_ = 'foo bar baz bop boq bor fip fop';
4
5/foo/ and $count++;
6
7{
8    no re 'debug';
9    /bar/ and $count++;
10    {
11        use re 'debug';
12        /baz/ and $count++;
13    }
14    /bop/ and $count++;
15}
16
17{
18    use re 'debug';
19    /boq/ and $count++;
20    no re;
21    /bor/ and $count++;
22}
23
24/fip/ and $count++;
25
26no re 'debug';
27
28/fop/ and $count++;
29
30use re 'debug';
31my $var='zoo|liz|zap';
32/($var)/ or $count++;
33
34print "Count=$count\n";
35
36
37