-#!/usr/bin/evn perl
+#!/usr/bin/env perl
# Takes STDIN and converts Converts hexadecimal, decimal and named HTML
# entities to their respective literals.
#
use encoding 'utf8';
use strict;
-my $file = join /$\//, <>;
+my $file = join /\n/, <>;
$file =~ s/&#(\d+);/chr $1/eg;
$file =~ s/&#x([0-9a-fA-F]+);/chr hex $1/eg;