1 while $sql =~ s%(/.*)/%$1%gs;

##</code><code>##

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