G'day meanroc,

Here's a more succinct way to do that:

print "\a site ", ($resul !~ /xss/ and "nao "), "vulneravel!!!\n\n";
[download]