for($i = 0; $i < @lines; $i++){ if($lines[$i+1] =~ //gi) { #if($lines[$i] =~ ! /DSM_MODIFY_FID/gi || $lines[$i] =~ ! /DSM_FID_ADD/gi) { #splice (@lines, $i,1,""); #} if($lines[$i] =~ /DSM_MODIFY_FID/gi) { print OUTPUT2 "$i DSM_MODIFY_FID\n";} elsif($lines[$i] =~ /DSM_FID_ADD/gi) { print OUTPUT2 "$i DSM_FID_ADD\n";} else {print OUTPUT2 "NICHTS VON ALLEM!!!!\n";} } }