my $result = pack "C*", @newbytes;