1#!/usr/local/bin/perl
2
3while ( $l = <STDIN> ) {
4	chomp $l;
5	if( $l =~ /^#/ ) {
6		print "$l\n";
7	} else {
8		@t = split /\t/,$l;
9		if( $#t > 7 ) {
10			$t[7] = ".";
11			print join("\t", @t) . "\n";
12		} else {
13			print "$l\n";
14		}
15	}
16}
17