Of course, you can always reindex and (label) your line numbers using the line pragma. For instance:

#!perl -w
use strict;

# after the next line, error messages will be indexed 
# starting at line 300 and contain the phrase "marked_point"

#line 300 marked_point
my $some_var;
$some_var = "some_value";
blah;
[download]

Which yields:

Bareword "blah" not allowed while "strict subs" in use at marked_point
+ line 302.
[download]

This is pretty handy from a debugging standpoint during development. For instance, you could give each major block of code its own series; such as, main code gets lines 0-999, and each subroutine gets a 1000 line block and a label. So if you got an error message like:

Missing right curly or square bracket at subroutine_save_report line 3
+010, at end of line
[download]

You'd know exactly where to look. Best to take them out line labeling when code goes production, however...