perl => sub { require Syntax::Highlight::Perl; my ($data) = @_; my $hl = Syntax::Highlight::Perl->new; $hl->define_substitution( '<' => '<', '>' => '>', '&' => '&', "\t" => ' ', ' ' => ' ', ); $hl->set_format( $_ => [ "", "" ] ) for qw/Comment Directive Label Quote String Subroutine Variable Keyword Builtin Operator Package Number CodeTerm Symbol DATA/; return '
' . $hl->format_string($data) . ''; },