Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    =~ s{ (.) }{ $filter_map{$1} }exg;

say $output;