my ($k,$v) = /^(.*:)?(.*)/s; [download]
In reply to Re^3: Splitting on a pattern once by ikegami in thread Splitting on a pattern once by perlpal