@data = split /(?<=\n)/, $data;