#!/usr/bin/perl
use warnings;
use strict;
                                                                                
my @searched = qw( die ist );
                                                                                
line:
while ( my $l = <DATA> ) {
    for( @searched )
      { next line unless index($l, $_) + 1 }
    print $l;
}
                                                                                
# Das hier gehört nach _ _ DATA _ _, das Forum killt das aber.
Das ist die erste Zeile.
Dies ist die zweite Zeile.
Hier kommt Nummer drei.