my $reformatted = join(' ',
                  map { length($_) < 16 ? $_ : split /,/,$_,2 }
                  split /\s+/, $original);

##</code><code>##

$original =~ s/,\s+/, /g;