Select Code to Download

#! perl -slw
use strict;
...
     ACCGCTGT

and it occurs at a 1-based offset into the sequence of 6

substr $s1[2], $s2[ 1 ] - $s1[ 1 ], length( $s1[2] ) - $s1[1] - $s2[1]
+;

$s2[1] + 1;