Help for this page

Select Code to Download

Select or download this
```
$val =~ s/^(.*)\n/$1/;
```
Select or download this
```
$val =~ s/\n.*//s;
```