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;
}
[download]

./parse_js.pl < javascript.html

UPDATE
Homework, eh? Well, your teacher is more than likely not going to allow you to use a CPAN module for this assignment, because they probably want you to learn about basic I/O instead. You more than likey also do not have HTML::TokeParser installed on your computer, which will cause the program to not work.

You will learn more by taking this problem to your teacher instead of bringing it to us. We can show you some of the best ways to solve a problem that will consequently get you a bad grade in your class. Do yourself a favor, talk to your teacher.

UPDATE UPDATE:
You are welcome, but you should still talk to your teacher if you do not understand what you are doing - hopefully they don't mind talking to students during their office hours. Good luck!

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)