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";