#!perl -pl $_.=(!/1?.$/,st,nd,rd)[$&]||th