opendir(DIR, "../userdaten/main");
foreach my $a (sort(readdir DIR))
{
   next if $a eq '.' || $a eq '..' || $a eq 'todel';
   push @members,$a;
}
closedir(DIR);

#Verzeichnis durchlaufen

foreach(@members)
{
   #Daten-Datei öffnen

   open(FILE, "../userdaten/main/$_");
   @inhalt = <FILE>;
   chomp(@inhalt);
   close(FILE);

   #UserID und Username auslesen

   $userid = $inhalt[0];
   $username = $inhalt[1];

   #Textseiten einlesen

   opendir(DIR, "../userdaten/main");
   foreach my $a (sort(readdir DIR))
   {
      next if $a eq '.' || $a eq '..';
      push @seiten,$a;
   }
   closedir(DIR);

   foreach(@seiten)
   {
      open(FILE, "../userdaten/$userid/seiten/$_");
      @content = <FILE>;
      chomp(@content);
      close(FILE);

      @content =~ s/\userdaten\/$username\/bilder/userdaten\/$userid\/bilder/g;

      open(FILE, ">../userdaten/$userid/seiten/$_");
      foreach(@content) { print FILE $_ . "\n"; }
      close(FILE);
   }

   @seiten = ();
}