1use re 'debug'; 2 3$_ = 'foo bar baz bop 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/fip/ and $count++; 18 19no re 'debug'; 20 21/fop/ and $count++; 22 23use re 'debug'; 24my $var='zoo|liz|zap'; 25/($var)/ or $count++; 26 27print "Count=$count\n"; 28 29 30