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; 	
    

##</code><code>##

		foreach $resort_line (@resort_list_lines)
		{	
			my ($resort_lookup,$resort,$country) = split (/:/,$resort_line,3);
	
			$resort =~ s/\r//sgi;
			$resort =~ s/\n//sgi;
		
			
$resort_string_position = index($line,$resort_lookup);
			
			if ($resort_string_position != -1) 
			{	
 			   my $resort_lookup_length = length($resort_lookup);

			   substr($line, $resort_string_position, $resort_lookup_length) = "<html formatting>$resort_lookup</html formatting>";
			}
		}
}