Select Code to Download

open(NEWS,"news.txt") || die "Cannot open file";
    my @news_lines = <NEWS>;
...
    $line =~ s/\r//sgi; 
    $line =~ s/\n//sgi;

        foreach $resort_line (@resort_list_lines)
        {    
...
            }
        }
}