http://www.perlmonks.org?node_id=596961


in reply to Trying to skip for $LEV = 0

Beware of using regular expressions in place of '==':
#!/usr/bin/perl use warnings; use strict; my $val = 1100; print "Value contains a 0\n" if $val =~ /0/; print "Value is actually equal to 0\n" if $val =~ /^0$/;
Don't obfuscate your code by using pattern matching when you don't need it.