my $suffix;
local *_ = \$nouser;
if    (/(?<!1)1$/) { $suffix = 'st'; }
elsif (/(?<!1)2$/) { $suffix = 'nd'; }
elsif (/(?<!1)3$/) { $suffix = 'rd'; }
else               { $suffix = 'th'; }