$var =~ tr/$pattern1/$pattern2/;