my @test = unpack "(a8)*", $str;