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