my $s = '[[(60)(3)]]';
my @nums = $s =~ /\((\d+)\)/g;