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

##</code><code>##

if (/: (?: :: | (?<!::)(?!:) )/x) {
    die
}