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