Help for this page
$base = lc substr($sequence, $position, 1);
if ($base eq 'g' or $base eq 't') { ... }