perl -pi -e '/(/;$&?$2==1?$b=$3:$_=~s;($1);$1$b;g:1' input