This what you need?
The "data.lst" is a copy&paste from your values here.
Best regards,
NMA
bash-2.03# cat stript_data.pl
#!/usr/bin/perl
use warnings;
use strict;
open (DATA, "<", "data.lst") or die ("cannot open data!\n");
foreach (<DATA>) {
if ( $_ !~ /0,0,0,0$/ ) {
print $_;
} else...