new substitute-filtered-tables.perl