{
    my @ubllist = split /[,]/, ${qpsmtpd}{UBLList} || '';

    return "# No URIBLs are defined" unless (scalar @ubllist);

    $OUT .= '';
    foreach my $bl (@ubllist){
        my @l = split /[:]/, $bl;
        $OUT .= $l[0];
        if ($l[1]){
            $l[1] =~ s/-/,/g;
            $OUT .= " $l[1]";
            if ($l[2] && $l[2] =~ m/^add\-header|deny(soft)?$/){
                $OUT .= " $l[2]";
            }
        }
        $OUT .= "\n";
    }
}
