print for $s =~ m[( (?: \( [^)]+ \) ) | \S+ )]gx;;
this
is
(some more)
JOY
code