open(F, "grep 'WARNING<\/font>' $mydir/$myfile".".|wc|awk '{print \$1}'| ") ;
         while (<F>) {
            chomp();
            $received_warn=$_;
        }
    close F;

##</code><code>##

$a = 'a';
if ($a == 'b' or $a == 'c') {
    print "True\n";
}

##</code><code>##

if ($a = 'b') {
    print "True\n";
}