i would do this: @flds = grep { length } split(/\s+/);