Select Code to Download

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

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

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