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