Скрипт должен вырезать кусок кода из html.Помогите

[Гость]

Срочно нужен скрипт для Линукс. который делает следующее: Есть html файл из него надо повырезать куски кода содержащиеся между словами <SCRIPT и SCRIPT>. Кусков может быть несколько надо все их вырезать включая сами <SCRIPT и SCRIPT>. Помогите пожалуйста или подскажите как это сделать. Может с помощью Sed или awk. или надо посимвольно проверять весь файл на совпадение со <SCRIPT?

[allez]

#!/usr/bin/perl -w
# Синтаксис: script.pl <input_file>
open (INFILE, $ARGV[0]);
open (OUTFILE, ">>processed_" . $ARGV[0]);

my $read=1;
while (<INFILE>) {
  if (m/<script>/i) {
    $read=0;
  }
  if (m/<\/script>/i) {
    $read=1;
    next;
  }
  if ($read == 1) {
    print OUTFILE $_;
  }
}
close OUTFILE;
close INFILE;