print "\nThe sequence is :$sequence\n\n"; @sequence = $sequence; @sequence= split('', $sequence); $start ="ATG"; $a1 = substr ($sequence, $start, 3); print "$a1\n";