#!/usr/bin/perl -w

use strict;

my $count = 0;
while(<>){
    chomp;
    if ( $_=~/\>(\S+)/ ){
print "\n" if $count > 0;
print $1."\t";
$count++;
    }
    else{
	print $_;
    }
}
print "\n";
