https://dev.to/jj/perl-weekly-challenge-1-translate-letters-and-count-4cdf