Help for this page
perl -lne 'print "@{[(split /:/)[0, 4]]}"' /etc/passwd
perl -F: -lane 'print "@F[0, 4]"' /etc/passwd