Select Code to Download

use strict;
use warnings;
use Data::Dump qw/ dd /;
...
dd( $colons, \@notColons );
__END__
("A B:C D", ["A B", "C D"])