use strict;
use warnings;

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

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