if($email=~ /^[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}$/i){
         
         print "ok";
         
         }else{ print "bad";}