perl -wlne 'print join " ", (split /:/)[0, 4]' /etc/passwd