$input =~ /\d/;