my ($temp) = $segmente =~ /"nodes": \[(.+)\]/s;
my @zahlen = $temp =~ /(\d+),?/g;