It is a simple solution but it would be even simpler if you avoided the un-necessary chomp and assignment to $line, and used an unless statement modifier. I don't know if it is safe to assume that every record begins with an "@" symbol.

while ( <DATA> )
{
    print unless m{^\@};
}
[download]

I hope this is of interest.