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