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