while (<FH>) {
   chomp;
   my ($name, $passwd, $uid, $gid, $quota, $comment,
       $gcos, $dir, $shell) = split /:/;
}