my $string = "1.23.45";
print "Found a number.\n" if /\d+/;