my @array = split(/\x0D?\x0A/, $list);