$text =~/^[1-9.]+$/ and print "$&\n";