Help for this page

Select Code to Download

Select or download this
```
$line = $_;
$line=~m%(\d+).*%;
```
Select or download this
```
($line) = /(\d+)/  or next;
```