my @b = split(/[.]/,$a);
  my $OrginalBlast;
  $OrginalBlast = $b[0].".".$b[1].".".$b[2].".".$b[3].".".$b[4].".".$b[5].".".$b[6].".".$b[7];