my ($teilstring) = m/^.{$k}(.{$teilstringlaenge})/ or die;