As you probably already know... Javascript isn't "parsed" like HTML or XML, it is "executed" or "interpreted" by the Javascript interpreter.

There's no easy way to parse the functions that people write (rife with badly-coded and often leaky constructs) with Perl. You'll go crazy trying.

Here's a little snippet that might help though:

$page =~ s!<(s(?:cript|tyle))[^>]*>.*?</\1>!!gis;
[download]