my $count =()= 'AAAAA' =~ /AAAA/g;
print "Found $count instances\n"

##</code><code>##

ACTG: 1
ATGC: 1
CTGT: 1
GCTG: 1
GTAC: 1
TACT: 1
TGCT: 1
TGTA: 1