(my $output = $filter_clean)
    =~ s{ (\D) }{ $filter_map{uc $1} }exg;