... join '|' => sort { length $a <=> length $b } @$xxxxxx_criteria;

##</code><code>##

... "whoever@example.com" ... # Oops!