Help for this page

Select Code to Download

Select or download this
```
my $base = ("A"|"C"|"G"|"T");
```

Select or download this

while (<INPUT>)
{
$sequence = $_
@array = ()
@array = split (/\n/, $sequence );