perl -le "$str='a\\:b:c'; my ($x,$y)=$str=~/^((?:[^:\\]+|\\.)*):(.*)$/s; print for $x,$y;"
a\:b
c