strings `which perl` | sort | uniq -c | sort -rn | awk '$1>1'