Help for this page
1 while s{ (/|^) # add: capture slash or start of string: $1 ... ) } {$1}gx; # add: replacement