@test = split /(?=\n)/, $rec;