grep dispatch_ **/*.pm|perl -ne 'print lc "$1/$2\n" if m{Pages/(.+).pm:.* dispatch_([a-z_0-9]+)}'|sort|uniq