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

sub read {
	my $line = <STDIN>;
	defined $line or return;
	chomp $line;
	my @f = split /\t/, $line, -1;
	return @f;
}

my $title = read;