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

##</code><code>##

perl -F: -lane 'print "@F[0, 4]"' /etc/passwd