#!/usr/bin/perl
open IN, "list.html";
while(<IN>)
{
s/\r//g; 
print;}