perl -pe 's/^(..)H/${1}1/; s/^(.{7})L/${1}0/;' input > output

##</code><code>##

HH1HHHHH