my $string = "AAA:BBB";
$string =~ /^([^:]+):([^:]+)$/;
print "$1 - $2\n";