#!/usr/bin/perl -wl

use strict;
use warnings;


my $test = "before script<script> stuff and more stuff \n stuff\nstuff\nstuff</script> after script";

$test =~ s%<script>(.*?)</script>%%gs;

print "Test is $test\n";