my $nachricht = '050b46bf'; my $data = "\x00\x8e\x10\x03\x03\x00\x00\x00\x05\x0a\x46\xb7\xec\x6a\x70\xb7"; # Erzeuge Array mit Zahlen: my @numbers = unpack "C*", $data; # einzubauende Nachricht (Big Endian) my @in = unpack "C*", pack "N", hex $nachricht; # Array splitten my @left = @numbers[0..7]; my @right = @numbers[12..15]; # Nachricht einbauen push @left, @in, @right; # das ist mein Ergebnis my $binary = pack "C*", @left; # Zur Probe Ausgabe der Oktettenwertigkeiten print "@numbers\n"; print "@left\n"; print join " ", unpack "C*", $binary;