Select Code to Download

my $line= q{info::gmdate:2013-06-07 05:57:tccat_cico::r};

...
    or die "Malformed input [$line] in line $.";

my %info; @info{ @columns }= ($1,$2,$3,$4,$5,$6);