Try using Sprite, DBD::Sprite, or DBD::CSV. The advantage of the latter two being that it will be easier to switch to a different DBI handler later,

This will also give you the obvious speed increases that others have pointed out, though it may be slower than a completely home-made solution.

UPDATE: Clarified first |P.

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