If I deploy these two forms at once, I get an odd FullForm output in the second form:
CloudDeploy[FormFunction[{{"str","Your Text:" }-> "String"},Part[StringCases[#str, RegularExpression["^.*\W(.*)"]->"$1"],1]&]]
CloudDeploy[FormFunction[{{"str","Your Text:" }-> "String"},Part[StringCases[#str, RegularExpression["^.*\W(.*)"]->"$1"],1]&]]
It seems to be a bug, but maybe Im missing something.