(ord > 88? uc : ()), uc

##</code><code>##

if (ord($_) > 88)
{
     return $_;                  # 'A' -> ('A')
}
else
{
     return uc($_), uc($_);      # 'a' -> ('A','A')
}