#!/local/bin/perl

$side= 435; #Sjekk startverdi
while (<>) {
s/<avsn><n><side>/<side><n><avsn>/;
s/<side>/<side><snr nr="$side" topptxt="Identificering af stedsnavne">/;
if (/<side>/) {$side++;};
s/\s+/ /g;
print "$_";
}