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