sub set_delim {
    undef $delim;
    local $SIG{__WARN__} = sub { die() };
    try {
       ...