perldoc -q " count.*?occurrences "