RunLengthEncode[input_String]:= (l |-> {First@l, Length@l}) /@ (Split@Characters@input)