$startcod = index($seq, $start); print "$startcod\n"; $endcod = index($seq, $end1 || $end2 || $end3, $startcod); print "$endcod\n";