You can also use index with substr, in the form of:

substr($str, 0, 0, index($str, ':'));
[download]

UPDATE: And of course the complement to get the remainder...

--
perl -pe "s/\b;([st])/'\1/mg"