Select Code to Download

use strict;
use warnings;
...
    ( my $filter = $filterClean ) =~ s{([A-Za-z])}{$filterMap{ $1 }}g;
    say qq{$filterClean --> $filter};
}

GAV18 --> 42818
gAv18 --> 42818
peter --> 73837
Bill34 --> 245534