Select Code to Download

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

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

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