my $str ="word1,word2, word3,word4,word5";
my @arr = split /,(?=\S)/, $str;