#!/usr/bin/perl use warnings; use strict; use Text::ParseWords; my (@users, @fields); if (open PASSWD,"/etc/passwd") { @users = <PASSWD>; chomp @users; # remove linefeeds @fields = quotewords(':', 0, @users); close PASSWD; } print "@fields";