#!/usr/bin/perl use strict; use warnings; my $datei = 't.txt'; open(my $fh,'<',"$datei"); binmode($fh,':utf8'); local $/ = "\n"; my $content = <$fh>; print $content;