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