Sorry guys.
perldoc clearly says " Beware that unlike split, join doesn't take a pattern as its first argument. ". It is evaluating // to 1 and using that as the expr to join.