if (my @match_A = $line =~  /^([^\t]+)\t #1
				     ([^\t]+)\t #2
				     ([^\t]+)\t #3
				     ([^\t]+)\t #4
				     ([^\t]+)\t #5
				     ([^\t]+)\t #6
				     ([^\t]+)\t #7
				     ([^\t]+)\t #8
				     ([^\t]+)\t #9
				     ([^\t]+)\t #10
				     ([^\t]+)\t #11
				     ([^\t]+)\t #12
				     ([^\t]+)\t #13
				     ([^\t]+)\t #14
				     ([^\t]+)\t #15
				     ([^\t]+)\t #16
				     ([^\t]+)\t #17
				     ([^\t]+)\t #18
				     ([^\t]+)\t #19
				     ([^\t]+)\t #20
				     ([^\t]+)\t #21
				     ([^\t]+)\t #22
				     ([^\t]+)\t #23
				     ([^\t]+)\t #24
				     ([^\t]+)\t #25
				     ([^\t]+)\t #26
				     ([^\t]+)\t #27
				     ([^\t]+)\t #28
				     ([^\t]+)\t #29
				     ([^\t]+)\t #30
				     ([^\t]+)\t #31
				     ([^\t]+)\t #32
				     ([^\t]+)\t #33
				     ([^\t]+)\t #34
				     ([^\t]+)\t #35
				     ([^\t]+)\t #36
				     ([^\t]+)\t #37
				     ([^\t]+)\t #38
				     ([^\t]+)\t #39
				     ([^\t]+)\t #40
				     ([^\t]+)\t #41
				     ([^\t]+)\t #42   # (.{1,}\t) #42 
				     /x) {