/H\(\d+\)/&&push@{$c{$&}},$_.$/for@r;

##</code><code>##

print map@{$c{$_}},grep$#{$c{$_}}>0,%c;