my @bytes = unpack "C*", $a;

##</code><code>##

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