in reply to Re^2: Splitting on a pattern once
in thread Splitting on a pattern once

You could play with reverse, but this is simpler:
my ($k,$v) = /^(.*:)?(.*)/s;