Help for this page

Select Code to Download

Select or download this
```
$after =~ s#^(\w+)/\1#$1#;
```
Select or download this
```
$after =~ s/(\w+)\W+\1/$1/;
```