my %who; foreach my $user (`who`) { $user =~ /^(\S+)/ or next; $who{$1}++; } while (my($user, $count) = each(%who)) { print "$user is logged in $count time"; print $count == 1 ? ".\n" : "s.\n"; }