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