Well, I was busy doing work (hrm. ;-) and reading other interesting posts. I also thought you would figure out, or somebody else would answer.

    ($name) = (split /:/, <FILE>) [0];
    ($uid)  = (split /:/, <FILE>) [2];
    ($gid)  = (split /:/, <FILE>) [3];
    ($cmts) = (split /:/, <FILE>) [4];
[download]

With that code, each split works on a new line read off the file handle FILE. The correct way would be:

    ($name, $uid, $gid, $cmts) = (split /:/, <FILE>)[0,2,3,4];
[download]

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}