my $zaehler = 1;
my $dokument ....

$zaehler++ while($dokument=~s!<seite\D+?>!<seite $zaehler>!s)