$ perl -MO=Deparse,-p -e '$one_line =~ !/^#+/'
($one_line =~ (not /^#+/));