$pref  =~ s/[0-9]+//gi;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

$ perl -le 'my $x = "ÞORNþorn"; $x =~ y/Þþ//d; print $x'
ORNorn