my( $type, $valid, $name, $comment ) = split( qr/:/, $_ );

##</code><code>##

my %val;
@val{ qw/ type valid name comment / } = split( qr/:/, $_ );