Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
(1.3.56.84 
56.38.m.26)
56.2.3.(59)

Select or download this

$_ =~ s/[(]*(?![)]+)//; 
# Replace 0 or more instances of '(' if the 
...
# Replace 0 or more instances of ')' if the 
# lookbehind assertion for '(' fails.  This
# doesn't work as I though.