Help for this page
INSPECT WS-CUSTOMER TALLYING WS-TALLY-COUNT FOR ALL 'JOHN'.
my $count = $customer = () =~ /JOHN/g;