#!/usr/bin/perl
use strict;
use warnings;

use HTML::Entities;
my $string = "Thomas Ack\x26#39\x3Bhing";
print decode_entities( $string);
#Output: Thomas Ack'hing