$a = 'a b c d';

$a =~ tr/abcd/rstu/;

print $a;