while ($line = <INPUT>) {   # or where ever you get your input from
  @temp = split()/,+/, $line);
  if ($temp[0] eq '--'
   && $temp[3] eq '--'
   && $temp[4] eq '--'
   && $temp[5] eq '--') {
      # then do whatever you want
  }
}