my $basis_zeichenkette = "Klaus sucht das Haus!";
		my $suchen = "Klaus";
		my $ersetzen = "Peter";
		my $position = index($basis_zeichenkette, $suchen);
		substr($basis_zeichenkette, $position, length($suchen), $ersetzen);
		print $basis_zeichenkette;	
		
		> Peter sucht das Haus