よしかずです。

遅くなりましたが結果です。

  $KCODE = "sjis" => $KCODE = "e"
  NKF::nkfの削除
  "%\(\)! \.,&\-+" => "%\(\)! \.,&\\-\\+"

上記の変更で希望通りの結果が得られました。