echo "a#b#c#d" | tr '#' '\n' | perl -ne 'if($last){ $m="$last$_"; print $m=~s/b\nc/bc/g?$m:$last;} $last=$_; END{print $last}'