Select Code to Download

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

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

my $A = () = $seq =~ /A/ig;

my $A = $seq =~ tr/aA//;

my @matches = $seq =~ /[AG]TG.*?T[AG][AG]/ig;
print "Here are the matched parts of the string:\n";
print "  '$_'\n" for @matches;
my $GENE = @matches;