my $pattern = /das will ich/;
while (<FILE>) {
  print "Passt: $_" if m/$pattern/;
}