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