my $hl = new Syntax::Highlight::Engine::Kate(
language => 'Perl',
substitutions => {
"<" => "<",
">" => ">",
"&" => "&",
" " => " ",
"\t" => " ",
"\n" => "
\n",
},
format_table => {
Alert => ["", ""],
BaseN => ["", ""],
BString => ["", ""],
Char => ["", ""],
Comment => ["", ""],
DataType => ["", ""],
DecVal => ["", ""],
Error => ["", ""],
Float => ["", ""],
Function => ["", ""],
IString => ["", ""],
Keyword => ["", ""],
Normal => ["", ""],
Operator => ["", ""],
Others => ["", ""],
RegionMarker => ["", ""],
Reserved => ["", ""],
String => ["", ""],
Variable => ["", ""],
Warning => ["", ""],
},
);
print "\n\n\n\n";
while (my $in = <>) {
print $hl->highlightText($in);
}
print "\n\n";