Damn, YASB. I had

    my $length = length($_ = expand($_));
[download]

originally but upon later review the assignment seemed unnnecessary and was removed.

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