$inhalt =~ s/(.)\1+/$1/g;