Help for this page

Select Code to Download

Select or download this
```
/^\.?\d+\.\d+(?:\.\d+)*/
```

Select or download this

use strict;

...
if ($a =~ /^\.?\d+\.\d+(?:\.\d+)*/) {
    print "match\n";
}