Public ScratchpadDownload, Select Code To D/L
INSPECT WS-CUSTOMER TALLYING WS-TALLY-COUNT FOR ALL 'JOHN'.

[download]
The above COBOL is equivalent to Perl 
my $count = $customer = () =~ /JOHN/g;

[download]
Something to think about.