Select Code to Download

#!/usr/bin/env perl -l

...
}

print "$_\t$tags{$_}" for sort { $tags{$b} <=> $tags{$a} } keys %tags;

$ ls -l pm_1082082_*.html
-rw-r--r--  1 ken  staff  237 13 Apr 12:13 pm_1082082_1.html
-rw-r--r--  1 ken  staff  237 13 Apr 12:12 pm_1082082_2.html

$ cat pm_1082082_1.html
<h1 id="H-1">Heading 1</h1>
...
<h2 id="H-1-2">Heading 1.2</h2>
<p>Para1 (1.2.1)</p><p>Para2 (1.2.2)</p>
<p><strong>Fake newlines:</strong><br /><br><br /></p>

$ cat pm_1082082_2.html
<h1 id="H-2">Heading 2</h1>
...
<h2 id="H-2-2">Heading 2.2</h2>
<p>Para1 (2.2.1)</p><p>Para2 (2.2.2)</p>
<p><strong>Fake newlines:</strong><br /><br><br /></p>

$ pm_1082082_html_tag_count.pl pm_1082082_*.html
p       8
...
h1      2
em      2
h2      2