if ($letter1=~ /[aA]/) { ... }
...