@handles = $result =~ /\((.*?)\)/g;
print "Handles are: @handles\n";