#!/usr/bin/perl

use strict;
use warnings;

my $inputfile = 'datei.txt';

# eingabe für gesuchtes wort
my $suchwort = <STDIN>;   
chomp $suchwort;

{
    local $/;
    open my $fh,'<',$inputfile or die $!;
    my $stoff = <$fh>;
}


my $ausgabe = $suchwort . ".txt";   
open my $ofh,">",$ausgabe or die $!;
print {$ofh} $stoff or die $!;
close $ofh or die $!;