C:\>perl -E "my $s='abcdeEFGHI20130619ABC';$s =~ tr/[b-dB-D2-5]/*/;say $s;"
a***eEFGHI*01*0619A**

##</code><code>##

C:\>perl -E "my $s='abcdeEFGHI20130619ABC';$s =~ tr/b-dB-D2-5/*/;say $s;"
a***eEFGHI*01*0619A**