Here's a hint: $string =~ tr/A-Za-z/D-ZA-Cd-za-c/;