eval: "wORDs" =~ /\bWord\b/i; # Parse IP address $LineSnippet =~ s#\\\\##g; } # end if stmt # Parse Microsoft Windows } # end if stmt # Parse MHz } # end if stmt # Parse MB } # end if stmt # Parse Service Pack } # end if stmt # Parse Microsoft Office } # end if stmt # Parse Microsoft Outlook } # end if stmt # Parse Intel } # end if stmt # Parse NT # if ($LineSnippet =~ /\bNT\b/) { } # end if stmt } # End for loop # print "\$GoodPart = $GoodPart\n"; } # end if stmt } # end while stmt