#!/usr/bin/perl

print "Muster: ";
$pattern=;

while (<>)
{

	if ($_ =~ $pattern)
	{
		print "Treffer";
	}
}