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