#!/usr/bin/perl -l

use utf8;
use strict;
use warnings;
use Text::Unidecode;

print unidecode("ต้มยำกุ้ง");
print unidecode(
"\x{e15}\x{e49}\x{e21}\x{e22}\x{e33}\x{e01}\x{e38}\x{e49}\x{e07}"
);