in reply to Find & Replace

you can also try this:
while (<DATA>) {
    s{(?:(?<=23,)|(?<=bye,)),+}{};
    print;
}

__DATA__
Hello,World,23,,,,
test,test,test
test,test,test
test,test,test
test,test,test
end,bye,,,,

[download]

Replies are listed 'Best First'.
Re^2: Find & Replace
by johngg (Canon) on Aug 10, 2006 at 20:41 UTC
    Moving the ,+ outside of the alternation also works.

    while (<DATA>) {
    s{(?:(?<=23,)|(?<=bye,)),+}{};
    print;
}

    [download]

    Cheers,

    JohnGG

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom