Select Code to Download

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

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