Select Code to Download

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

use strict;
use warnings;
...
}
say filter2num($filter_clean);