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