#!/usr/bin/perl
use strict;
use warnings;

my $word = 'abbbattaaajqaAAAgtAWG';

print cound_chars('a',$word)."\n";

sub cound_chars { return ( grep $_ eq $_[0], split //, $_[1] ) + 0; }