#! /usr/bin/perl
use strict;
use warnings;

my @line;
while (<>) {
	chomp;
	push @line, "$_";
} continue {
	if (eof) {
		print join("\t", @line), "\n";
		@line = ();
		close ARGV;
	}
}