#!perl -pl $_.=("",st,nd,rd)[!/1.$/*$_%10]||th