$initial_protein=~s/B-/BB/g;
	$initial_protein=~s/-B/BB/g;