Help for this page

Select Code to Download

Select or download this

for my $entry (qw(1_0 1_0_1 1_0_beta 1_0_1_beta)) {
    print "$entry\n" if $entry =~ /^\d+ _\d+ (?> (?:_\d+)? \w+) $/x;
}

Select or download this
```
1_0_1
1_0_beta
1_0_1_beta
```