#!/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)