use strict;
use warnings;

my $seq = 'CCATGNNNTAACCNNATGNNTAGCC';

$seq =~ s/\s//g;

# Count number of bases & regular expressions
my $bases = length ($seq);
my $A     = () = $seq =~ /A/ig;
my $GENE  = () = $seq =~ /[AG]TG.*?T[AG][AG]/ig;

print <<REPORT;
Number of bases (including N): $bases.
A= $A; GENE(S)= $GENE;

REPORT