$ cat test.pl
use 5.14.1;
use warnings;

use HTML::Entities;

my $image;
$image ='ครัวซองเเซนด์วิชไข่ดาว Croissant Egg Sandwich ครัวซองเเซนด์วิชไข่ดาว';
$image = decode_entities ($image);
$image =~ s/\p{Thai}//g;
print $image;
$ perl test.pl
 Croissant Egg Sandwich $