perl -MJSON -e "print JSON::encode_json( {amt => '3€'}  );"
# {"amt":"3â¬"}