my $str = "ACGTTGGCTATTGGGCCCGCT"; my $pattern = "GTT"; if ( ( my $offset = index $str, $pattern ) >= 0 ) { substr $str, 0, $offset + length( $pattern ) + 3, ""; } print $str;