trying perl encoding