#!/usr/bin/perl

# Environment Variables
use LWP::Simple; 
use CGI qw/:standard :netscape :html3/;

$sonuc="/home/usr254/html/sa/filmler/HeadLine.tlt";

&toplasa1;
exit;

sub toplasa1 {

$elle1= get("http://www.ntvmsnbc.com/news/FILM_front.asp"); 

# Oncesini sil
	$elle1=~ s/^.*<!---Insert_Tertiary_Stories--->//s; 
# Sonrasini sil
	$elle1=~ s/<!---END Insert_Tertiary_Stories--->.*$//s;  
# Gereksiz bosluklari kaldir
	$elle1=~ s/\s\s//g;
# Enterlari kaldir
	$elle1=~ s/\n//g;


# Returnleri tanimla
	$elle1=~ s/<TD WIDTH=13 VALIGN="TOP">/\n/g;
	$elle1=~ s/<!---spacing between headlines--->/\n\n/g;

	$elle1=~ s/&#0145;/'/g;
	$elle1=~ s/&#0146;/'/g;
	$elle1=~ s/&#0147;/"/g;
	$elle1=~ s/&#0148;/"/g;

# Butun tablari kaldir
	$elle1=~ s/<[^>]+>//g;

# Baaas
	
		open(PAGE,">$sonuc") || die("Error $! opening file");
		print PAGE $elle1; 
		close(PAGE);
		
}