while ( 1 ) 
{
if ( scalar(<STDIN>) =~ m'<script'i  )
{
while ( 1 )
{
$line = <STDIN>;
exit if ($line =~ m'</script'i);
print $line;
}}}