#!perl -p
s#$#(th,st,nd,rd)[/(?<!1)([123])$/]#e