Select Code to Download

#!/usr/bin/perl -wl

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

print "Test is $test\n";

./test.pl 
    Test is before script  after script