1 while $var =~ s/ich/du/;