FTFY: my $comment_or_blank =~ /^ # beginning of line \s+ # bugfix - any amount of whitespace (\#|$) # comment char or bl

FTFY: my $comment_or_blank =~ /^ # beginning of line \s+ # bugfix - any amount of whitespace (\#|$) # comment char or blank line /x; # x modifier allows commented regexen. next if $comment_or_blank;