my $string = qw(abc) | undef; # for illustration purposes only
unless $string ne "" {
print "found STRING"; } else {
print "string NOT found";}