while ( $string =~ /(\S.{0,19})(?=\s|$)/g ) {  
     # NB: "=~" here, rather than a simple "=" in original.
  push(@arr, $1);
}

for my $arr(@arr) {
        print $arr . "\n";
}