my $c = substr($line,0,1);
		next if( $c eq '*' or $c eq ' ' or $c eq "\t" or $c eq "\r" or $c eq "\n");