Help for this page
rgrep -e'->' * | perl -ne '/(\S{3,80}->\S{5,80})/;print $1,"\n"' | pe +rl -pe's/^\(//' | perl -pe 's/^\+\+|^\-\-//' | sort | uniq | less
... $people->{login}->{chair}->{color}=something ... $people->{login}->{desk}->{paperclips} $people->{login}->{desk}->{stapler} ...