unlink ( glob(...) || print "..." );

##</code><code>##

sub print_context {
    my $wa = wantarray;
    print $wa ? 'list' : defined $wa ? 'scalar' : 'void';
    print "\n";
    return $wa ? (1, 2) : 'x';
}

print "with || :\n";
print print_context() || print "error";
print "\n";

print "with or :\n";
print print_context() or print "error";
print "\n";
__END__
with || :
scalar
x
with or :
list
12

##</code><code>##

unlink( glob(...) ) || print "...";

unlink glob(...) or print "...";