use strict;
use locale;
use Encode;
use File::stat;
use File::Basename;
use File::Copy;
use File::Spec;

binmode(STDOUT, ":utf8");
$LogFile = "e:\\downloads\\Protokoll_2012-06-06.txt";
open(LOGFILE, "<:encoding(UTF-8)", $LogFile) or die("Could not open log file.");

foreach $line (<LOGFILE>) 
{
   #do things with every line / record
   # beispielsweise:
   # some code ......
   print "Line: ".$lineno.": ".$line;

}
close(LOGFILE);