Thomas Ack\x26#39\x3Bhing

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use HTML::Entities;

open my $fh, '<', 'source.html' or die $!;
my $string = do { local $/; <$fh> };
print decode_entities( $string);

##</code><code>##

#!/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