Help for this page

Select Code to Download

Select or download this

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