This does what I wanted:

  my @x=/(\S.{0,19})(?=\s|$)/g;
[download]

Thanks to all