if (grep $_!=2, map length, /(:+)/g) {
    die
}