if ($resul =~ /xss/) {
    print "\a site vulneravel!!!\n\n";
} else {
    print "\a site nao vulneravel!!!\n\n";   
        }