my( @match_A ) = split /\t/, $line;