#!/usr/bin/perl -w
use strict ;
open(A,"$ARGV[0]") || die;
open(B,">$ARGV[1]") || die;
while (<A>){
chomp;
next if /^#/;
my @line = split;
my @item = split (/;/,$line[8]);
my $start = $line[3]-1;
if ($item[2]=~/Name=(\w+.*)/){
print B "$line[0]\t$start\t$line[4]\t$1\t$line[5]\t$line[6]\n";
	}
}
close A;
close B;
