Hallo Siechfred!
my $str = "aaaaaaaaaaaaa|XXX|aaaaaaaa|YYYY|aaaaaaa|ZZZZZ|aaaaaaaaaaaaaaaaaaaaaaaaa";
my @matches = $str =~ /(|[^a]+?|)/g;
print join '', @matches;
> Nur so als Vorschlag, mit s/// fällt mir offen gestanden nichts vernünftiges ein.
Danke, führt auf jeden Fall zum Ergebnis. Meine Versuche einer direkten Substitution führten ebenfalls zu nichts...
Viele Grüße aus Frankfurt/Main,
Patrick
--
![](http://www.atomic-eggs.com/zensstop.gif)
\_ - jenseits vom delirium - \_
[[link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash](http://www.atomic-eggs.com/)]
Nichts ist unmöglich? [Doch!](http://www.atomic-eggs.com/cwi/cwi_4.shtml)
Heute schon ge[gök](http://goek.atomic-eggs.com/goek_goek.html)t?