#!/usr/bin/env perl

use strict;
use warnings;

my $delimiter = '<TAB>';
my @info = (1 .. 5, "\n", 6 .. 10, "\n", "A\nB", "C\n", 'D', 'end');

print /\n$/ ? $_ : "$_$delimiter" for @info[0 .. $#info - 1];
print $info[-1] =~ /\n$/ ? $info[-1] : "$info[-1]\n";

##</code><code>##

1<TAB>2<TAB>3<TAB>4<TAB>5<TAB>
6<TAB>7<TAB>8<TAB>9<TAB>10<TAB>
A
B<TAB>C
D<TAB>end