#!/usr/bin/perl 

$string1 = 'the cat sat on the mat.';
$string1 =~ tr/a-z/b/d;
print "$string1\n";

$string2 = 'the cit sit on the mit.';
$string2 =~ tr/a-z/b/d;
print "$string2\n";