#!/usr/bin/perl -w

$suchwort = <stdin>;   # eingabe für gesuchtes wort

$stoff = <datei.txt>;     #text aus großer txt-datei

$ausgabe = "ausgegeben.txt";   #ausgabe in neue datei

open(FILE,">$ausgabe");        #öffne neue datei

print FILE "$stoff";           #schreibe in neue datei