while ($seite =~ /$muster/g) {