$newstring =~ tr/01/LH/;

##</code><code>##

$newstring =~ s/0/L/g;
$newstring =~ s/1/H/g;