You're right. :-) I thought that the runs of tails had to be included as well.

This is closer to what is required, but fudges the pipes a little, 88 chars:

    $s.=rand()<.5?H:$"for+a..gr;
    $_=$s;
    $c=200-tr/ /|/s;
    s/(H+)/length$1/ge;
    print"$s\n$_\n$c\n"
[download]

--
John.