in reply to Cleaning the Log

Use  while() to repeat the search until all is done:

 perl -e '$a = "abcde{BS}{BS}f"; while($a =~ s/.{BS}//) {}; print $a;'

Replies are listed 'Best First'.
Re: Re: Cleaning the Log
by demerphq (Chancellor) on Sep 02, 2002 at 16:06 UTC
    Try this with these
    abcde{BS}{BS}{BS}{BS}{BS}{BS}f {BS}{BS}abcde{BS}{BS}{BS}{BS}{BS}c{BS}fat A{B}{BS}S}bout
    It should output:
    f fat A{BS}bout
    :-)

    Yves / DeMerphq
    ---
    Software Engineering is Programming when you can't. -- E. W. Dijkstra (RIP)