Select Code to Download

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

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

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