#!/usr/bin/perl

print "Muster: ";
$pattern=;
chomp $pattern;

print "Ersetzung: ";
$sub=;
chomp $sub;

while (<>)
{

	if ($_ =~ s/$pattern/$sub/ixgo)
	#i: ignore case
	#x: Ignoriere Whitespace, erlaube Kommentare (#)
	#g: Globale ersetzung
	#o: Nur einmal kompilieren
	{
		print "Treffer\n";
		print "<$`>$&<$'";
		print "Neu: $_";
	}
}