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