$n =~ s/\D+//g;

##</code><code>##

$n =~ tr/0-9//cd;