Select Code to Download

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

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

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

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