When doing join '|', for a regex, always sort (descending) by string length, to insure you match e.g. 'sh' before 's'.

And I suspect you want a map quotemeta in there as well. (Update: quotemeta isn't needed here; I misremembered the question as having special characters.)