Here you go Sun751, one line!

while ($line = <DATA>)     {         if ($line =~ /WNT/ || $line =~ /U
+NX/)         {             print "$line\n";         }         if ($fl
+ag)         {             if ($target_db ne 'sql')             {     
+            next if ($line =~ /$target_db/i);             }          
+   else             {                 next if ($line =~ /informix/i |
+| $line =~ /oracle/i)             }             print $FH "$line";   
+          if ($line =~ /$target_os/)             {                 un
+def $flag;                 next;             }         }         if (
+$line =~ /UNX/ || $line =~ /WNT/ || $line =~ /COMPONENT/)         {  
+          if(!(defined $flag))            {                 $flag = 1
+;                 print $FH "$line";            }         }     }
[download]