usr bin perl -w use strict use Data Dumper my earch my calar aaaaaabbs

#!/usr/bin/perl -w

use strict;
#use Data::Dumper;

my $earch = 'a';
my $calar = 'aaaaaabbsb';
my $ount  = 0;

foreach my $c (split '' => $calar) {
    ( $c eq $earch )?++$ount:1; 
}
print $ount;