#!perl -p
s/.$/$&.((0,st,nd,rd)[$`%10-1&&$&]||th)/e