Help for this page
my $count =()= 'AAAAA' =~ /AAAA/g; print "Found $count instances\n"
ACTG: 1 ATGC: 1 ... TACT: 1 TGCT: 1 TGTA: 1