In this case I could share a piece of code that deals with similar problem, it renames such files into ASCII way.

use Win32::OLE qw(in CP_UTF8);
use Win32::OLE::Const;

Win32::OLE->Option(CP=>CP_UTF8);

use Unicode::String qw/utf8/;

my $oshell = Win32::OLE->new('Shell.Application') or die "$@";
my $f = $oshell->NameSpace(Win32::GetCwd());
print "[$f]";
my $fi = $f->Items;
print $fi->Count;
print "\n";
for (0 .. $fi->Count-1) {
  my $item = $fi->Item($_);
  my $name = $item->Name;
  my $u=utf8($name);
  my $s = $u->hex;
  $s=~s/U\+00(\w\w)/my($r,$p)=((pack 'H*',$1),$&);if($r=~m(^[()\w .;\-
++!]$)){$r}else{$p}/eg;
  $s=~s/(U\+[\da-f][\da-f][\da-f][\da-f])/($1)/ig;
  my $ren=0;
  $ren=1 if $s=~/U\+(?!00)/;
  $s=~s/[ +]//g;
  print "$ren|$s\n";
  if($ren){$item->{Name}=$s}
}
[download]

Courage, the Cowardly Dog
things, I do for love to perl...

You don't really give us enough information to answer your question. What problems have you had with Encode? What version of perl are you using? Can you show us what it is you're trying to accomplish -- preferably with examples or code?