I had some trouble getting Encode::encodings to work last time I tried it. You may be better off trying specific encodings. For the edification of the listening audience, would you mind showing what:

use Data::Dumper;
$Data::Dumper::Useqq = 1;
print Dumper $text;
[download]

shows?