Help for this page

Select Code to Download

Select or download this
```
1 while $sql =~ s%(/.*)/%$1%gs;
```

Select or download this

use Regexp::Keep;   # I believe, it will be unnecessary on Perl 5.10
1 while $sql =~ s%/.*\K/%%gs;