Port Perl highlighter