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