Select Code to Download

while ($line = <DATA>)
{
...
          }
      }
}

if ($line =~ /UNX/ || $line =~ /WNT/ || $line =~ /COMPONENT/)
{
...
        print $FH "$line";
    }
}

if ($line =~ /$target_os/)
         {
             undef $flag;
             next;
          }