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

##</code><code>##

  $OriginalBlast = join '.', split(/[.]/,$a)[0..7];

##</code><code>##

  ($OriginalBlast) = $a =~ m/(([^.]+\.?){8})/;