sub ersetzen
		{
			my $basis_zeichenkette = $_[0];
			my $suchen = $_[1];
			my $ersetzen = $_[2];
			my $position = index($basis_zeichenkette, $suchen);
			substr($basis_zeichenkette, $position, length($suchen), $ersetzen);
			return $basis_zeichenkette;			
		}
		print &ersetzen("Ich will ein Haus", "Haus", "Computer");