#!/usr/bin/perl

use Encode qw(all);
my $ENC_ASCII = 'ASCII';
# When all other defaults are exhausted, use UTF-8
my $result = undef;
      eval{
              $result = Encode::encode_utf8($text);1;
                      };
                      if($@){
                      }
              if($result){
   return $result;
      }
# Something is seriously wrong if we get to here
 return encode($ENC_ASCII, $text, undef);