my $s = 'abc123+';
$s =~ s/[^0-9+]//g;