Syntax::Highlight::Perl - but Im not sure its a good idea..

I think it is a very good idea, as long as it is a user setting and done using CSS. I know I would love and enable the feature as soon as I can.

Here is the code I use at http://tnx.nl/scribble.plp:

        perl => sub {
            require Syntax::Highlight::Perl;
            my ($data) = @_;
            my $hl = Syntax::Highlight::Perl->new;
            $hl->define_substitution(
                '<' => '&lt;',
                '>' => '&gt;',
                '&' => '&amp;',
                "\t" => '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb
+sp;',
                ' ' => '&nbsp;',
            );
            $hl->set_format( $_ => [ "<span class=$_>", "</span>" ] )
                for qw/Comment Directive Label Quote String Subroutine
+ Variable
                       Keyword Builtin Operator Package Number CodeTer
+m Symbol
                       DATA/;
            return '<link rel=stylesheet href="/perl.css"><pre>' .
                   $hl->format_string($data) . '</pre>';
        },
[download]