#!/usr/local/bin/perl
 # Load a conversion table from CONVTABLE to %ConvTable.
 # Then find matches in a file and convert them.
 use strict;
 use warnings;
 use Encode;
 use 5.014;
 use utf8;
 use autodie; 
 use warnings    qw< FATAL  utf8     >;
 use open        qw< :std  :utf8     >;
 use charnames   qw< :full >;
 use feature     qw< unicode_strings >;
 
 my ($i,$j,$InputFile, $OutputFile,$word,$from,$to,$linetoprint);
 my (@line, @lineout); 
 my %ConvTable;	# Conversion hash
 print 'Conversion table: opening file: E:\My Documents\Perl\Conversion table.txt'."\n";
 my $sta= open (CONVTABLE, "<:encoding(utf8)", 'E:\My Documents\Perl\Conversion table.txt');
 binmode STDOUT, ':utf8';	# output should be in UTF-8
 # Load conversion hash
  while (<CONVTABLE>) {
 	chomp;
 	print "$_\n"; # etc ...
# etc ...