perl -lne 'print "@{[(split /:/)[0, 4]]}"' /etc/passwd