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


##</code><code>##

    perl -lane 'BEGIN{$,="\n"} print @F'