perl -ne '/^@/ && print' infile > outfile