while ($seite =~ /$muster/g) {
   # Hier gibt's keine Endlosschleife!
   my @digits = @{^CAPTURE}; # siehe perldoc perlvar