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

$dokument=~s!<seite.+?>!"<seite ".($zaehler++).">"!sge;