Google Maps polyline decoder in Wolfram Mathematica

PolylineDecoder.m

(* Decoder for polylines as defined in https://developers.google.com/maps/documentation/utilities/polylinealgorithm
 *)

decodePolyline[encoded_String] := Module[{deltas},

	deltas = With[{x = FromDigits[#, 32]},
		If[OddQ[x], -BitShiftRight[x, 1] - 1, BitShiftRight[x, 1]]
	] & /@ Reverse[BitAnd[ToCharacterCode@StringCases[encoded, RegularExpression["[_-~]*[ -\\^]"]] - 63, BitNot@32], 2];

	Rest@FoldList[Plus, {0, 0}, Partition[deltas / 100000., 2]]
]