#!/usr/bin/perl -w

use strict;

my $input = qq(
<style>
 My style is here
</style>

After first style

<style file="while.css" />

After second style
);

print $input, "\n-------------\n";
$input =~ s!<(s(?:cript|tyle))[^>]*>(?:.*?</\1>)?!!gis;

print $input, "\n";

__END__

# output #

<style>
 My style is here
</style>

After first style

<style file="while.css" />

After second style

-------------



After first style



After second style