if (/^([01]):([01]):([^:]+):([^:]+)$/) {
    my ($type, $valid, $name, $coment) = ($1, $2, $3, $4);
    
    ...