#  Assuming that the comma delimited stuff is in $_

  my @Values = split ( ",", $_ );
  my $Match = ( $Values[0] eq $Null && 
                $Values[3] eq $Null &&
                $Values[4] eq $Null && 
                $Values[5] eq $Null );