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

##</code><code>##

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