#!perl -lp $_.=(0,st,nd,rd)[$_%10]x!/1.$/||th