grep (($_ =~ s/[\r\n]+$//) && 0, @list);