no warnings 'uninitialized';
s<\\(#)|\s*#[^\n]*$><$1>g