if (/^(?<type>[01]):(?<valid>[01]):(?<name>[^:]+):(?<comment>[^:]+)$/) {
    print "Key name: ", $+{name}, "\n";
    print "Key Comment: ", $+{comment}, "\n";
    print "Not valid\n" unless $+{valid} || !$+{type};
} else {
    print "Malformed input: $_\n";
}