@monthPost = (
"-", "st", "nd", "rd", "th", "th", "th", "th", "th", 
"th", "th", "th", "th", "th", "th", "th", "th", "th",
"th", "th", "th", "st", "nd", "rd", "th", "th", "th",
"th", "th", "th", "th", "st"
); 

$textInput = "$mday$monthPost[$mday]" # etc.


##</code><code>##


$_[0]=~/1\d$/?0:qw(0 st nd rd)[$_[0]%10]or'th';



##</code><code>##

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;