use strict;
use HTML::TokeParser;

my $content = do {local $/; <STDIN>};
my $parser  = HTML::TokeParser->new(\$content);

open (OUT, '>', 'myJavaScript.txt') or die $!;

while ($parser->get_tag('script')) {
   print OUT $parser->get_text;
}