my $dokument ....

my @blocks=split(/<seite.+?>/,$dokument)
$dokument=shift(@blocks);
for my $zaehler (1..$#blocks)
{
  $dokument.="<seite $zaehler>".shift(@blocks);
}