Use the ternary operator:

$response = $resul =~ /xss/ ? "\a site vulneravel!!!" : "\a site nao v
+ulneravel!!!";   
print "$response\n\n";
[download]