Select Code to Download

use 5.026;
use warnings;
...
substr $string, $_, 0, qq{\x5c}
   for reverse @posns;
say $string;