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