c:\@Work\Perl\monks>perl -wMstrict -le
"my $n = 'abc[]1p2q3][xyz';
 $n =~ tr|[0-9]||cd;
 print qq{'$n'};
"
'[]123]['