#!/usr/bin/perl

use strict;
undef $/;
my $text;

$text= <>;

while ($text=~m/Programmierung/g){
      print "Das Wort Programmierung wurde gefunden.\n";
}
close (DATEI);