$seitenzahl = 10;
$zaehler = 1;
while ($zaehler <= $seitenzahl) {
    $zeile=~s!<seite.+?>!<seite $zaehler>!s;
    $zaehler++;
}