I've no interest in running your code right now and would like you to post an example of your input, the actual output, and the expected output. That's de rigur fore most "help me!" nodes, why not yours?

[Updated: I see. You're getting line numbers from Module::Info and then attempting to parse perl within that. That approach won't work. Just use PPI or look into Larry's MADPROPS extension to bleadperl.]