my $string = Do_Translate("en","fr",'are you'); use Data::Dumper; print Dumper($string,'êtes-vous'); #### $VAR1 = 'êtes-vous'; $VAR2 = "\x{ad25}s-vous"; #### 'translations' => [ { 'translatedText' => "\x{c3}\x{aa}tes-vous" } ]