$string =~ s/[^0-9+]//g;

##</code><code>##

$string =~ s/[^a-zA-Z0-9+]//g;