$filter_map{$_} = $_ for 0 .. 9;

##</code><code>##

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