Select Code to Download

$string = "hereiam[[[one]]] [[[two]]][[[three]]]  wwhat     ";
# regex
...
foreach $result (@strings){
    print "\"$result\"\n";
}

while ($string =~ /\[\[[(.*?)\]]\]/ig) {
        print "The pattern I care about is \"$1\"\n";
}