$response = $resul =~ /xss/ ? "\a site vulneravel!!!" : "\a site nao vulneravel!!!";   
print "$response\n\n";