$ perl -Mstrict -wle '
> print for findPosns(
>    q{YYSFTVMETDPVN[115]HMVGVISVEGRPGLFWFN[115]ISGGDKN[115]},
>    q{N},
>    q{[115]}
>    );
> 
> sub findPosns
> {
>     my ( $str, $textKeep, $textThrow ) = @_;
> 
>     my $text  = $textKeep . $textThrow;
>     my $len   = length $textThrow;
>     my @posns = ();
>     my $posn  = -1;
>     while ( ( $posn = index $str, $text, $posn ) > -1 )
>     {
>         push @posns, $posn ++;
>         substr $str, $posn, $len, q{};
>     }
>     return @posns;
> }'
12
30
37
$