perlxs add encode