Ok. We know that '', 0, and undef are all invalid e-mail addresses so just alter the validate_email_address sub as such:

sub validate_email_address {
    my $addr_to_check = shift or return "";
[download]

Hope this helps.