echo "a#b#c#d" | tr '#' '\n' | perl -e '@_ = <STDIN>; $_ = join("", @_); s/b\nc/bc/g; print $_;'