last
        if  $suff[ $indices[ $index ] ] !~ /^$pattern/;
    push @positions, $indices[ $index ] + 1;