open(NEWS,"news.txt") || die "Cannot open file";
	my @news_lines = <NEWS>;
close (NEWS);

open(RESORT_LIST,"resort_list_for_parser.txt") || die "Cannot open file";
	my @resort_list_lines = <RESORT_LIST>;
close (RESORT_LIST);

foreach $line (@news_lines)
{	
	$line =~ s/\n\r//sgi; 
	$line =~ s/\r//sgi; 
	$line =~ s/\n//sgi;