Help for this page
$ ls -i1 /opt/X11/share/X11/rgb.txt /usr/X11/share/X11/rgb.txt 85658151 /opt/X11/share/X11/rgb.txt 85658151 /usr/X11/share/X11/rgb.txt
$ 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
$ perl -ne 's/[\t ]+/ /g; print' original_name > canonical_name