Need help in bilingual code

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks, my code looks like this:

#!/usr/bin/perl

use WWW::Mechanize;

use warnings;



$im_url = 'http://www.google.co.in/imghp?hl=en&tab=wi&authuser=0';

my $mech1 = WWW::Mechanize->new(autocheck => 0, autodie => 0);

$mech1->get($im_url);

$image = '&#3619;&#3606;&#3649;&#3586;&#3656;&#3591;';

$mech1->form_name('f');

$mech1->field('q' => $image);

$mech1->click('btnG');

$c = $mech1->content;
if($c=~/imgurl=(.*?)\&amp;imgrefurl/){

    $image_url = $1;

}
print $image_url."\n";
[download]

But since the search item is in thai language so the output is http://sphotos.ak.fbcdn.net/hphotos-ak-ash1/hs474.ash1/25993_107032255986100_100000379770388_145040_8025778_n.jpg </

> while when I manually search this keyword on google image,I get proper results. Anyone knows the answer, how to rectify this error?

Back to Seekers of Perl Wisdom