my ( $key, $value ) = map { (split(/:/, $_)) [0,2] } <FILE>;

##</code><code>##

(split /:/, $_ )[0] => (split /:/, $_ )[2]