$ perl -le 'my $x = "1q2w3e"; $x =~ y/0-9//cd; print $x'
123