my $str = "ACGTTGGCTATTGGGCCCGCT";
my $pattern = "GTT";
my $offset = index($str,$pattern) + length($pattern) + 3;
$str = substr($str,$offset);
print $str;