$pos[$n] = index($suche[$n], "-13-1")

use strict;
use warnings;

my $string = '-13-4-1-2-3-13-1';
my $search = '-13-1';

my $pos = ( split /$search/, $string )[0];
$pos =~ tr/-//d;
print length( $pos ) + 1 . "\n";

my $string = '-13-4-1-2-3-13-1-13-4-1-2-3-13-1';
my $search = '-13-1';

pos = -1;

while ( ($pos=index($string, $search, $pos)) > -1 ) {
  printf("found at pos %d\n", $pos++);
}

#!/usr/bin/perl

my $string = '-13-4-1-2-3-13-1-2-13-1';
my $search = '-13-1';

while($string =~ m/$search/g){
   my $substr = substr $string, 0, $+[0]- length $search +1;
   $substr =~ tr/-//d;
   print length $substr;
}