my @a = grep { /^.{1,20}$/ } split " ", $string