perl -e "$s=qq(1.1.1); if ($s=~/\d+/) {print 'it is a number'};"
it is a number