Thanks ... too obvious !
P
> -----Original Message-----
> Breathnach, Proinnsias (Dublin) wrote:
> > while (<>) {
> > for $chunk (split /\{/) {
> > printf("{%s\n", $chunk);
> > }
> > }
> >
> > Nearly does it ...
>
> if FILE is the file,
>
> $out=join(//,<FILE>);
> $out=~s/{/{
> /g;
> print $out;
>