#!/usr/bin/perl -sp00F
$s=~s,\W,|,g;($a,$b,$c,$d,$p)=('(\W)','(?=< |$ )|(?=[^>\w] ',')','$1.',
'2')if!$p;s,<(%.*? %|!--#include.*?--)>,,gs,eval qq!s%$a($s)(?=$b\[\^>]
*(?=<|\$))$c %$d'<a name="_'.++\$i.'"><a href="#_'.(\$i+1).'"><font co'
.'lor=#ff0066><b>'.\$$p.'</b></font></a></a>'%eigx!,$i++,s/#_$i"/#_1"/;
