Select Code to Download

($£=pop)=~/1./?0:qw(0 st nd rd)[$£%10]or'th'

sub nthit{
substr'thstndrd',($£=pop)=~/1./||($£%=10)>3?0:2*$£,2
}