my @array = ('',1,2,'',3,'',4);
@array = grep { $_ } @array;
print join "}{",@array;
print "\n";
##</code><code>##

1}{2}{3}{4