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


##</code><code>##

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