foreach ($lines) {
    $lines = ~ s/(?<=,)([^,]*),/\1/g;
    print("$lines \n");
}

##</code><code>##

foreach my $line (@lines) {
    $line =~ s/(?<=,)([^,]*),/$1 /g;
    print("$line \n");
    }