Select Code to Download

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