For efficiency you should be using a SQL database and constructing your query on the fly based on the user supplied limitations. Not that that will necessarily be easier to code ;-)

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