Select Code to Download

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}
...