$input =~ /^\D*\d\D*$/;