$failmsg = "\*E";

            if (/$passmsg/) {
                $result = 1;
            }
            if (/$failmsg/) {
                $result = 0;
            }   
            

##</code><code>##

 
           if (/$passmsg/) {
                $result = 1;
            }
            if (/\*E/) {
                $result = 0;
            }