perl -i.bak -pe "next if /[#*]/" filename