while (my @digits = $seite =~ /$muster/g) {
   # In diesem while-Block sollte $seite gekürzt werden, sonst
   # riecht das nach Endlosschleife