unless ($message && $subject) { ...

##</code><code>##

    if ( $message | $subject eq "" ) { ...