$str =~ tr/01/LH/;