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

$_ = 'aadsdfaasfga';

my $count =()= /a/g;

print "$count\n";