#! perl -slw
use strict;

my $code = <<EOC;
This is some JOY code
This is (some more) JOY code
And this is some JOY code with escaped \\( and \\) 
like (this \\) and \\(this) and \\)
EOC

print for $code =~ m[
    (
        (?: \( (?: \\[()] | [^()] )+ \) )
        |
        \S+
    )
]gx;
__END__
C:\test>615217
This
is
some
JOY
code
This
is
(some more)
JOY
code
And
this
is
some
JOY
code
with
escaped
\(
and
\)
like
(this \) and \(this)
and
\)