Help for this page
$filter_map{$_} = $_ for 0 .. 9;
$filter .= join q{}, map $filter_map{ uc $_ }, split //, $filter_clean +;