Code:

  for $b = 1 to 15
  $c = split("- . : .: :: | " + $a)
  $a = $a + $c[$b] + "| "
 next


Shawn... so simple...yet... I spent hours and never thought of that...