That would also match words of more than 20 chars "splited", making \s* = "".

If I had to keep this limitation I would do:

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