Help for this page

Select Code to Download

Select or download this

  foreach my $k (keys %hash){
    $hash{$k} =~ s/,(?! )/, /g;
  }