Don't use Perl. use grep:

grep -v '^[^ ][^ ]*  *[^ ]* [.0 ]*$'  input > output
[download]

This assumes columns are separated by one or more spaces. And that the columns don't contain values like .0. or 0...0 (and that you want to keep such lines).