Select Code to Download

my @infoArray = (1, 2, 3, 4, 5, "\n", 6, 7, 8, 9, 10, "\n");
my @final_array = map { $_ eq "\n" ? $_ : "$_\t"} @infoArray;
# now print @final_array, for example:
print join '',  @final_array;

1       2       3       4       5
6       7       8       9       10

print join '',  map { $_ eq "\n" ? $_ : "$_\t"}  (1, 2, 3, 4, 5, "\n",
+ 6, 7, 8, 9, 10, "\n");