if($location =~ m/www.web.com/){ print " \n \nlogin correcto\n \n";