in reply to substitution

Time to transliterate! 
$str =~ tr/01/LH/;

[download]

HTH

broquaint

In Section Seekers of Perl Wisdom