$number =~ s/.*?(\d{1,9}).*/sprintf "%09d", "$1"/e;