Just look what it does:

  DB<10> $string = 'foo%%bar';

  DB<11> $string =~ s/%%/BAZ/;

  DB<12> print $string
fooBAZbar
  DB<13>
[download]