perl -ne "print unless/^A/;" file.txt > newfile.txt