in reply to Help with perl syntax

Try 
next if /^\s*#(?!!)/;

[download]

-- Randal L. Schwartz, Perl hacker

In Section Seekers of Perl Wisdom