Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
    $index += 3 while ( ($index + 3) < $positions{$key} );
    print "$key $positions{$key} " . substr($sequences{$key}, $index, 
+3) . "\n";
}

Select or download this
```
255369268 300 ACT
269212695 200 TAT
```