http://www.perlmonks.org?node_id=1109710


in reply to Re: Using perl for refactoring
in thread Using perl for refactoring

sh find $dir -name '*.pm' \ | xargs awk '/^[ \t]*sub[ \t]+[_a-z0-9]+/ { print $2 }' \ | xargs -I % fgrep --word-regexp % *.pm