Select Code to Download

#!/usr/bin/env perl

...

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

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