how-can-i-split-a-perl-string-only-on-the-last-occurrence-of-the-separator

split(/:([^:]+)$/, $str)