Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
my @matches = $str =~ m!\d+/\d+!g;

print join "\n", @matches;

Select or download this
```
63/1200
97/1200
61/1200
106/1200
```