#!/usr/bin/perl -w
use strict;

my $string = q<ABCDABDIDAOFOOFAA>;
my %count;
for (split(//, $string)){$count{$_}++;}
print(q<Matches >, $count{A}, "\n");