Select Code to Download

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

I/want//chocolate/and//icecream
I/want/chocolate/and/icecream