perl -ne '/^(\w+)/and print $1,$/' /etc/passwd
perl -pne 's/^(\w+).+/$1/' /etc/passwd
perl -MLinux::usermod -e '%users=Linux::usermod::users();print "\n",ke
+ys%users'
[download]