Help for this page

Select Code to Download

Select or download this
```
$s = substr($s, 0, rindex($s, '.'));
```
Select or download this
```
$s =~ s/\.[^.]*$//;
```