#!/usr/bin/perl

$string =
qq?dieser satz wird durchsuchet, da er in der Default
Variable nachher drinnen stehen wird.\nJeder ausdruck
der einfach so dahsteht wird untersucht!\n?;

print "gefunden\n" if ($string =~ m?jeder?i);

print $_;