Select Code to Download

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

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

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