•$Pre

     Clear[$Pre, $PreRead, Hundred] ;
     $Pre = Function[expr, Unevaluated[expr] /. (100 -> Hundred), 
      
          {HoldAll}] ;
          35
     Sqrt[--- + 1]
          100
                35
     Sqrt[1 + -------]
              Hundred
     $Pre =.