Select Code to Download

my %filter_map = ( ... );

...
}

say $filter;

my %map = ( ... );
$map{$_} = $_ for 0..9;
...
}

say $numeric;

my %map = ( ... );
$map{$_} = $_ for 0..9;
...
      split //, uc($word);

say $numeric;