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