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