my $r = [ $segmente =~ /\d+/g ];  
puts Dumper $r;