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