my $daten = do {
    open(my $FH, "<", "dateiname") or die $!;
    local $/;
    <>
};