# Lookup domain with whois
    $who = whois($d) or die "Cannot reach whois server";

    # Get expiration date
    if ($who =~ m/expir.*?(\d{2}-\w{3}-\d{4})/i) {
        $edate = $1;

    }elsif ($who =~ m|renewal-date.*?(\d{4}/\d{2}/\d{2})|i) {
        $edate = $1;

    }else{
        $expires{$d} = "Whois failed";
        next;
    }