m/\((.*?)\)/g;

##</code><code>##

m/\(([^)]*)\)/gm;

##</code><code>##

use strict;
use warnings;
my $s=<<EOF;
[whois.arin.net]
Fuse Internet Access (NETBLK-FUSE-NET-BLK-1) FUSE-NET-BLK-1
                                 216.68.0.0 - 216.68.255.255
Fuse Modem Ports (NETBLK-FUSE-216-68-32-0) FUSE-216-68-32-0
                                 216.68.32.0 - 216.68.47.255
EOF

if (my @parts = ($s=~/\(([^)]*)\)/gm)) {
	print "\n@parts\n";
}