in reply to Refactoring copy-pasted code
I don't know if it'll help, but you could take a look and try it out -- I posted it here at the monastery a few years back: Tabulate sub defs, sub calls in Perl code.
Maybe some minor tweaks (like counting string-lengths or line-counts of subs) would make it useful for focusing attention on the basis of a simple tabulation.
In Section
Seekers of Perl Wisdom