You might find opendir, readdir, sort, sprintf and pop or shift to be quite helpful here.

--
perl -p -e "s/(?:\w);([st])/'\$1/mg"