my @bytes = unpack('C*',"\c^"x25);