$string=~/((-\d{1,5}){4,20}(-0){4,20})/
print pos($1),"\n";