Select Code to Download

if ($str =~m#<p[^>]*>Visit our website at\s*<a href="http://www.Hachet
+teBookGroup.com">www.HachetteBookGroup.com</a>\s*</p>#si)
{
print "\nError: Specification No: 08 - Hachette web site address in CO
+PYRIGHT mismatch with standard for $direpub\n" 
}

use strict;
use Net::Ping;
...
     print TRACE  "Node $n doesnot have Public/Private address in ifco
+nfig\n" unless ($pass);
     return $pass;
}