my $title="சிவகாசி அருகே வெடி விபத்து : 2 பேர் உயிரிழப்பு";
use Encode::Guess;
my $enc = guess_encoding($title, qw/euc-jp shiftjis 7bit-jis/);
ref($enc) or die "Can't guess: $enc"; # trap error this way
$title= $enc->decode($title);
my $title_length=length($title);