INSPECT WS-CUSTOMER TALLYING WS-TALLY-COUNT FOR ALL 'JOHN'. 

##</code><code>##

my $count = $customer = () =~ /JOHN/g;