my $perldoc_Keys = {'Builtin_Operator' => 'Builtin_Operator', 'Builtin_Function' => 'Builtin_Function', 'Keyword' => 'Keyword',};
while(my ($type, $style) = each %{$perldoc_Keys}) {
       #perldoc link...
       $formatter->set_format(
$type, [qq|<a onclick="window.open('http://perldoc.perl.org/search.html?q='+this.innerHTML)" class="$style">|, "</a>"]);
                }
      $formatter->format_string($1);