for my $word (@sen) {
  next if ($word =~m/\A\s*\z/);
  do_something(word);
}

##</code><code>##

my @clean_sen = grep { !m/\A\s*\z/ } @sen;

##</code><code>##

@sen=split(/\s+/,$sent);