$result = join /""/, (map {$_, $_ ? '' : ':'} @list); [download]
In reply to Re: Surprised by join by pelagic in thread Surprised by join by EdwardG