Just a nit, in case you didn't know, but you can do the $1,$2,$3,$4 assignment in the if statement:

if ( my ($type, $valid, $name, $coment) = 
     $_ =~ m/^([01]):([01]):([^:]+):([^:]+)$/ ){}
[download]

I don't think this makes much difference. I just have a coding preference to avoid $1, etc.
I made 2 source lines because of code line length limits here. In actual code, I'd probably just have one line.