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