2011-01-27T12:32:48 SEA

Ich habe noch eine zweite Lösung:

Code: (dl )

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

wobei du hier auch $/ setzen könntest, denn so liest du erst alles in ein array und machst dann wieder ein join. mit $/ undef wird das lesen von <STDIN> erst gar nicht gesplittet. also:
echo "a#b#c#d" | tr '#' '\n' | perl -we 'undef $/; $_ = <STDIN>; s/b\nc/bc/g; print $_;'

bei der variante brauchst du den BEGIN-block nicht.

ich würde mir übrigens angewöhnen, bei perl-einzeilern immer -w dazuzupacken. wenn du einen fehler machst, kann -w dich u.U. darauf hinweisen. wenn man es in einzeilern nicht benutzt, wundert man sich ggfs. eine ganze weile, warum etwas nicht funktioniert.