Select Code to Download

my $str="abc t[poop1] def [doop2] [woop3] xyz";
$str =~ s/\[.*?\]/~~/g;
print "$str\n";
__END__
abc t~~ def ~~ ~~ xyz