$all = ~s/[.|]+/|/g;