my $table_re = sprintf '[%s]', join '', map quotemeta, keys %table;