#!perl -lp
y/()^I /^I_/d+s@^I|(?<=\w)\D@($/="
$&$/")=~s#_(\C*?)^I|(\S)([
*/${":"x/\G[+-]/}]*)#$2
#;$+@eg;$_.=$/;y/
/ /s+chop