my $string = 'a\:b:c';
my ($key, $val) = split /(?<!\\):/, $string, 2;
print "$key, $val\n";