my @new = split /\n|\t/, $data;