if($line =~ m/^([^. \t]+\w\.)([A-Z][^ \240]*)/) # treats words that should be split
	{
		$line =~ s/(?<=[^. \t]\w\.)(?=[A-Z])/ /g;
	}