# 123 rgrep -e'->' * | perl -ne '/(\S{3,80}->\S{5,80})/;print $1,"\n"' | perl -pe's/^\(//' | perl -pe 's/^\+\+|^\-\-//' | sort | uniq