Using your second example, you can take the score down to 37 like this:

perl -le'print+rand>.5?H:T for a..gr'

--Dave