use File::Slurp;
use strict;

my $text = read_file( 'de.txt' ) ;