perl -ni.bak -e 'print unless /^;/' file