Unfortunately, it's impossible to parse Perl code, and therefore also impossible to (reliably) highlight it. Consider this snippet:

BEGIN { if(time % 2) { eval 'sub foo(){}' } else { eval 'sub foo($){}'
+ } }
foo /1;  # is this a comment or not?          /;
[download]

The "comment" is only a comment if the time the program was run was an odd number.

-- MrNobo1024

s]]HrLfbfe|EbBibmv]e|s}w}ciZx^RYhL}e^print