my ($k,$v) = /^(.*:)?(.*)/s;