#!/usr/bin/perl -n
END{print map{$s{$_}>1?"$s{$_}\t$_$/":""}keys%s}$s{$1}++while/(\w{4,}\b)/g

##</code><code>##

perl strings.pl `which perl` | sort -rn

##</code><code>##

15      DynaLoader
6       Usage
4       UWVS
2       dl_unload_file
2       dl_undef_symbols
2       version
2       dl_install_xsub
2       GLIBC_2
2       boot_DynaLoader
2       dl_find_symbol
2       filename
2       linux
2       dl_error
2       dl_load_file