Very tangentially related but: perl (and perlcritic) will honour cpp-style #line filename linenumber directives so you can embed those in disjoint snippets to get line numbers to line up (as it were) with the original full source.

Update: additionally I get the same output (perlcritic 1.138, perl 5.30.2) albeit with the regex error reported at line 4483 since I diddled in #line 4483 before the first line of code after similar shebang/strict/warnings.