Help for this page
( some stuff\) )
for ($script =~ m[( (?: \( [^)] + \) ) | \S+)]gx) { push @script, $_; }