if($params{FORM_POST}){$_=decode 'UTF-8',$_ for(@$ref_userdata);} if($params{FROM_FACEBOOK}){$_=encode 'UTF-8',$_ for(@$ref_userdata);} open WH,">:encoding(UTF-8)","$dir/private_data" or die $!."$dir/private_data"; print WH "$_|" for(@$ref_userdata); close WH;