Thanks, but I pass :) For our notorious snippet $a++ / $b; # /; htmlize provides:
$a++ <span class="constant">/</span>
<span class="string"> </span>
<span class="variable-name">$b</span>
<span class="string">; # </span>
<span class="constant">/</span>;
That surely is a lot of noise. As you can see (you can, can't you?), this is the output from a broken cperl-mode.
My preferred approach for large-scale fontification tests would be Lindydancer's faceup markup, which together with the other repositories by the same author are really awesome tools to debug and test font-lock features.
Advertisement: As a recent addition, I added Damian Conway's "Perl Best Practice" recommendations for indenting code to M-x cperl-indent-style. I guess that amongst Perlers PBP is waaay more popular than K&R, BSD, or GNU conventions.