use Encode qw(encode decode);

##</code><code>##

my $thearesp = encode("iso-8859-1", decode("UCS-2LE", $theresponse->content));