for(1..200){$c=['H','T']->[rand(2)];$r{$t}++if$c ne 'T';
$t++if$c eq 'T';}for(keys%r){push@g,$r{$_}}print join('|',@g),"\n";
[download]

Here is some late night code, should be able to trim it down tomorrow. I may have missed the requirements as well. Thanks for the post.