the hardest working two letters in Perl