Select Code to Download

  my $string  = '01234567890';
  my $find    = '0';
...
    substr($string, $pos, length($find), $replace);
    $pos = index($string, $find, $pos + length($replace));
  }

  $string =~ s/\Q$find\E/$replace/g;