my $base = ("A"|"C"|"G"|"T");

##</code><code>##

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