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

##</code><code>##

# 68
perl -ne's/^(\(|[+-]{2})//g,say for/(\S{3,80}->\S{5,80})/' *|sort -u

##</code><code>##

# 67
perl -ne's/^(\(|[+-]{2})//g,say for/\S{3,80}->\S{5,80}/g' *|sort -u