Select Code to Download

use strict;
use warnings;
...
);

print /^([^:]|(?<!:)::(?!:))+$/ ? "OK $_\n" : "NO $_\n" for @tests;