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