*root x 0 0 root root /bin/bash
bin x 1 1 bin /bin /sbin/nologin
daemon x 2 2 daemon /sbin /sbin/nologin
adm x 3 4 adm /var/adm /sbin/nologin
lp x 4 7 lp /var/spool/lpd /sbin/nologin
sync x 5 0 sync /sbin /bin/sync
shutdown x 6 0 shutdown /sbin /sbin/shutdown
halt x 7 0 halt /sbin /sbin/halt
mail x 8 12 mail /var/spool/mail /sbin/nologin
news x 9 13 news /etc/news
##########################################################

#!/usr/bin/perl
#use strict;
#use warnings;
use 5.010;
my %count;
while (<>){
 foreach (split){
 $total++;
 next if /\W+/;
 $valid++;
 $count{$_}++;
 }
}
print "total is: $total & valid is: $valid & count is: $count{$_}\n";
foreach $word (sort keys %count) {
  print "$word was seen $count{$word} times.\n";
}