if ($line =~ /UNX/ || $line =~ /WNT/ || $line =~ /COMPONENT/)
{
    if(!(defined $flag))
    {
        $flag = 1;
        print $FH "$line";
    }
}