ok sure.. i've worked out something.. but having problems with it.
i decide to use substring to extract "ATG".

print "\nThe sequence is :$sequence\n\n";
@sequence = $sequence;
@sequence= split('', $sequence);

$start ="ATG";
$a1 = substr ($sequence, $start, 3);
print "$a1\n";
[download]