my $foo = qq(); my $bar = qq(

Test (Änderung)

\n); if ($bar =~ m(\Q$foo\E)) { die "geht doch"; }