$result = join /""/, (map {$_, $_ ? '' : ':'} @list);