$base = lc substr($sequence, $position, 1);

##</code><code>##

if ($base eq 'g' or $base eq 't') { ... }