$x='file.txt'

$x = "/LOG/$x";
open(DATEI,"<",$x) || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
print @Zeilen;
close(DATEI);