$ perl -pi -e '$_="" if /^\s*#/' filename