use strict;  use warnings;
 use 5.014;	
 use Win32::Console;
 use autodie; 
 use warnings qw< FATAL utf8 >;
 use Carp;  use Carp::Always;
 use utf8;
use Fcntl;
use DB_File;
use DBM_Filter;

my ($i, $FileName);
my (@Tied);
binmode STDOUT, ':encoding(UTF-8)';
binmode STDERR, ':encoding(UTF-8)';
binmode $DB::OUT, ':encoding(UTF-8)' if $DB::OUT; # for the debugger
Win32::Console::OutputCP(65001);		 # Set the console code page to UTF8

$FileName = 'E:\\My Documents\\Technical\\Perl\\Eclipse workspace\\Work\\'Tie File test.txt';
my $db = tie @Tied, 'DB_File', $FileName, O_CREAT | O_RDWR, 0644, $DB_RECNO;
$db->Filter_Push('encode' => 'UTF-8');

while (<DATA>) {
	push @Tied, $_;
} # end while (<DATA>) 

$i =0;
foreach (@Tied) {
	print "$i $_";
	++$i;
} # end foreach (@Tied)
$db->Filter_Pop();
untie $FileName;
__DATA__
&#964;&#953; &#954;&#940;&#957;&#949;&#964;&#949;;
&#960;&#940;&#961;&#964;&#949; &#964;&#959; &#942; &#945;&#966;&#942;&#963;&#964;&#949; &#964;&#959;
&#1513;&#1500;&#1493;&#1501; &#1495;&#1489;&#1512;&#1497;&#1501;
abc &#1500;&#1488; &#1499;&#1503;&#1499;&#1503; efg
&#1502;&#1514;&#1497; &#1493;&#1500;&#1488;&#1503; This is it
&#1502;&#1506;&#1499;&#1513;&#1497;&#1493; &#1500;&#1506;&#1499;&#1513;&#1497;&#1493; 
&#931;&#942;&#956;&#949;&#961;&#945; &#949;&#943;&#957;&#945;&#953; &#932;&#961;&#943;&#964;&#951;
&#920;&#941;&#955;&#969; &#957;&#945; &#966;&#940;&#969;
&#964;&#953; &#954;&#940;&#957;&#949;&#964;&#949;;