my @test = unpack("a8" x (length($str) / 8) , $str);