sub x($) {
  local($_) = @_;
  say "\n$_ ==>";
  say for split /[^\\](?:\\\\)*\K:/, $_
}

x $_ for <DATA>;
__DATA__
111111111:22222\:2222:333333333:4444444
111111111:22222\\:2222:333333333:4444444
111111111:22222\\\:2222:333333333:4444444
111111111:22222\\\\:2222:333333333:4444444

##</code><code>##


111111111:22222\:2222:333333333:4444444
 ==>
111111111
22222\:2222
333333333
4444444


111111111:22222\\:2222:333333333:4444444
 ==>
111111111
22222\\
2222
333333333
4444444


111111111:22222\\\:2222:333333333:4444444
 ==>
111111111
22222\\\:2222
333333333
4444444


111111111:22222\\\\:2222:333333333:4444444
 ==>
111111111
22222\\\\
2222
333333333
4444444