Help for this page

Select Code to Download

Select or download this
```
$str =~ s{^\Q$/\E}{};
```

Select or download this

if (substr($str, 0, length($/)) eq $/) {
    substr($str, 0, length($/), '';
}