Octave, 144 bytes
.6;%+->?|"e"|?>-+%;6.
f=@(x)all(ismember('Hi, Retina!',x))&sum(ismember(cat(2,33:36,46,91:93,''),x))<4&x(2)>53&x(3)<60
.6;%+->?|"e"|?>-+%;6.
f=@(x)all(ismember('Hi, Retina!',x))&sum(ismember(cat(2,33:36,46,91:93,''),x))<4&x(2)>53&x(3)<60