1#!/usr/local/bin/perl
2
3while( $l = <STDIN> ) {
4
5	if( $l =~ /^#/ ) {
6		print $l;
7	} else {
8		@t = split /\t/, $l;
9		$alt = $t[4];
10
11		# Show if ALT fiels is not empty and doesn't have '<'
12		if(( $alt ne '.' ) && ($alt !~ /^</)) { print $l; }
13	}
14}
15