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;