Regular Expression Perl

$text = "hello there!";
print "$text\n";
$text =~ tr/a-z/d-za-c/;
print "$text\n";