#!/usr/local/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 color'
.'=#ff0066><b>'.\$$p.'</b></font></a></a>'%eigx!if$s;$i++,s/#_$i"/#_1"/;
