Help for this page

Select Code to Download

Select or download this
```
$line=/-\s/;
```
Select or download this
```
$line = ($_ =~ /-\s/);
```
Select or download this
```
my ($excerpt) = $line =~ /-([^)]+\))/;
```