Or else do a fix-up on the final string after it's all been joined together:

c:\@Work\Perl\monks>perl -wMstrict -le
"my @infoArray = (1, 2, 3, 4, 5, qq{\n}, 6, 7, 8, 9, 10, qq{\n});
 ;;
 my $finalString = join qq{\t}, @infoArray;
 ;;
 $finalString =~ s{ ^ \t }''xmsg;
 print qq{'$finalString'};
"
'1      2       3       4       5
6       7       8       9       10
'
[download]