for ($str) {
     s/0(0*)$/1$1/
     or s/1(0*)1$/01$1/
     or return;
   }