while(<STDIN>)

{


$line1=<STDIN>;


if($line1=="<SCRIPT")
{

#print $_;
print $line1;

}


}