my $j = '';
$j .= $_ ? length $j ? ":$_" : $_ : $_ for (0,1,0,1);
print $j;

__RESULT__
0:10:1