my @new = map { split /\t/ } split /\n/, $data;

##</code><code>##

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