$nouser = 5;
if  ($nouser !~ /^\d{2}$/)
{
$nouser = $nouser.'st' if ($nouser =~ /(1)$/);
$nouser = $nouser.'nd' if ($nouser =~ /(2)$/);
$nouser = $nouser.'rd' if ($nouser =~ /(3)$/);
$nouser = $nouser.'th' if ($nouser =~ /(4|5|6|7|8|9|0)$/);
}
else
{
	$nouser = $nouser.'th';
}