$filter .= join q{}, map $filter_map{ uc $_ }, split //, $filter_clean;