Help for this page

Select Code to Download

Select or download this

my @allowed = qw[ AA AG GC GT CA CG TT TC ];
my $allowed = join "|", @allowed;
...
$data="TGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
+GGGGGGGGGGGGGGGGGGGGGATAG
C";
print "$_\n" for $data =~ m/$regex/g;

Select or download this
```
G
C
```