#!usr/bin/perl-w
@k = ‘CCATGNNNTAACCNNATGNNTAGCC’;
$k = join( '', @k);
# Remove whitespace
$k=~ s/\s//g; 
# Count number of bases & regular expressions 
$b=length($k);
print "\n Number of bases (including N): $b.\n"; 
# Count number of A and regular expression (i.e. gene)
$A=0; $GENE=0; 
while($k=~ /A/ig){$A++}
while($k=~ /[AG]TG.*T[AG][AG]/ig){$GENE++}
print "\n A= $A; GENE(S)= $GENE; \n\n"; 
exit;