Data.String: common_head(): escape ^ and \

* if strs contains a string like "^o^",
  it produces invalid regex pattern
* add spec