in reply to Advanced replace function
You may be looking for the /g option to s///:
my $str="abc t[poop1] def [doop2] [woop3] xyz"; $str =~ s/\[.*?\]/~~/g; print "$str\n"; __END__ abc t~~ def ~~ ~~ xyz
In Section
Seekers of Perl Wisdom
in reply to Advanced replace function
You may be looking for the /g option to s///:
my $str="abc t[poop1] def [doop2] [woop3] xyz"; $str =~ s/\[.*?\]/~~/g; print "$str\n"; __END__ abc t~~ def ~~ ~~ xyz