#!/usr/bin/perl

use strict;
use warnings;
           
while (<DATA>) {
    $_ =~ s/[(]*(?![)]+)//;
    $_ =~ s/[)]*(?<![(])//;
    print $_, "\n"; 
}


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

##</code><code>##

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