#! /usr/bin/perl

my @row;
my $fam;
my $id;
my $ini;
my $fin;
my $chr;
my $sense;
my $sense2;

 while (<STDIN>)
{   chomp($_);
    @row = split(/\t/,$_);
    $fam = substr ($row[0],0,-1);
    $id = substr ($row[1],0,-1);
    $chr = substr ($row[2],0,-1);
    $ini = substr ($row[3],1);
    $ini2 = substr ($ini,0,-1);
    $fin = substr ($row[4],1);
    $sense = substr ($row[5],2);
if ($sense eq "-trev")
{$sense2 = "(-)";}
else
{$sense2 = "(+)";}

print "$fam \t $id \t $chr$sense2:$ini2...$fin \n";
}