I know it's not in perl, trying out an awk variant here

awk '{ yes=0; for ( i=3; i<=NF; i++) { if ( $i == 0 ) { yes=1; break} 
+} if ( yes != 1 ) { print } }' filename
[download]