my @data;
my @test = unpack("a8" x (length($str) / 8) , $str);
foreach (@test) {
    my @s = unpack("C" x (length($_) ), $_);
    push (@data, $s[0]); # Erstes Zeichen in Array eintragen
}