my @array = split(/[\x0D\x0A]+/, $list);