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