my $logfiles ="C:/test/xunix/logfile_tracefiles/TraceLog_.txt";
open(DATEI,$logfiles);
my @vektor = <DATEI>;
my $seek=~m/UserName(.+)/;
for(my $i=0; $i<=$#vektor; $i++)
{
if($vektor[i]=~$seek)
{
print $1;
}
}