Help for this page
#!/usr/bin/perl -n END{print map{$s{$_}>1?"$s{$_}\t$_$/":""}keys%s}$s{$1}++while/(\w{4,}\ +b)/g
perl strings.pl `which perl` | sort -rn
15 DynaLoader 6 Usage ... 2 linux 2 dl_error 2 dl_load_file