Select Code to Download

ABCD
EFGH
GHIJ

ABCD\n
EFGH\n
GHIJ\n

my @array;
while ( my $line = <STDIN> ) {
...
foreach ( @array ) {
    print "$_\t";
}

{
    local $, = "\t";
    print @array, "\n";
}