my $lineCounter = 0; my $line = ""; open(FILE, '<', $filename) || die "Error: Could not open: $!"; while( $line = ) { if ( $line =~ /# Ausdruck1/ or $line =~ /# Ausdruck 2/ or $line =~ /# Ausdruck 3/ ) { $contentLNKArray[$lineCounter++] = $line; last; } }