use strict;
use warnings;

my $resul = 'string stuff';
my $resp = "\a site " . ( $resul =~ /xss/ ? 'nao ' : '' ) . "vulneravel!!!\n\n";
print $resp;