there is no else unless (or even elsunless, since this isn't javascript) in Perl, might have been

    unless (predicate) {
       do_this;
    } else {
       do_the_impossible unless impossible_thing;
    }