@list=map(s/[\r\n]+$//, @list);