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