print@s=/\D/g,@s[/\d+/g]=()for<>