use strict;
use warnings;

my @sen = ('I', 'want', '', 'chocolate', 'and', '', 'icecream');

print join '/', @sen;
@sen = grep {length} @sen;
print "\n" . join '/', @sen;
[download]

Prints:

I/want//chocolate/and//icecream
I/want/chocolate/and/icecream
[download]