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