my @zahlen=$string=~/\D([1234]?\d|5[0123])\D/gc;