SAS Question- Replace ' Mr ' with 'Dr' in a dataset.

Example 1.

              Data a;
               input name $ 1-15;
                     new_name=prxchange('s/\Mr /Dr /i',-1,name);
            cards;
        Mr Mridul
         Mr Mrinda
       ;run;

Example 2.
     

            data test;
            length have want1 want2 $20;
            have=' Mr Mridul';
           want1=tranwrd(have,'Mr ','Dr ');
          want2=prxchange('s/^ *Mr\b/Dr/oi',1,have);
       run;


Example 3.

             DATA a;
                 INPUT name $ 1-15;
           DATALINES;
           Mr Mridul
            Mr Mrinda
          ;;
         RUN;

Example 4.

          DATA a;
         SET a;
          name = TRANWRD(SCAN(name, 1, ' '), 'Mr', 'Dr ') || SCAN(name, 2, ' ');
         RUN;