in reply to Golf - Ordinal Suffixes
use Lingua::EN::Numbers::Ordinate; sub num2ord { my $n = shift; ordinate($n); } [download]
# 1 2 3 4 5 6 +7 # 12345678901234678901234567890123456789012345678901234567890123456789 +0 use Lingua::EN::Numbers::Ordinate; [download]
-sauoq "My two cents aren't worth a dime.";