$ perl -nE '@x=split;$seen{join(" ",@x[0,1,2])}++;END{say 0+keys%seen}' < /opt/X11/share/X11/rgb.txt
512
$ wc -l /opt/X11/share/X11/rgb.txt
782 /opt/X11/share/X11/rgb.txt