#!/usr/local/bin/perl5.8.4
use strict;
use warnings;

my $kommastring = "name1, name2, name3, name4, name5";

(my $erg1 = $kommastring) =~ s~,~~g;
my $erg2 = join '', split /,/, $kommastring;

print "Anfangsstring = '$kommastring'\n",
       "Ergebnis1 = '$erg1'\nErgebnis2 = '$erg2'\n";