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