my $A = 'abcd0123456789ABCDE[]{}()_=|?<>!@~%$/.-';

print "\nBEFORE: $A";

$A =~ tr|[0-9]||cd;

print "\nAFTER: $A";   # Output: 0123456789[]