perldoc -q count